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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


thé#ric 


hévric 








l'ORIC. Essai de la table graphique 


(Pour les seuls numéros encore 
disponibles en décembre 1986) 

Numéro 6 

Essais de IXL DOS ALfTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la carte 8 
EÆ MAGECO. VOICE ; ORIC 
parle dans interface. RENUM-DES- 
TRUC renuméraÉktn et suppression 
de lignes BOda Les Interrup¬ 
tions : une horigge. Master-mind : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MICROOISC. La 
Jasmin-Printer (Brother M 1CX)9) à 
fessai et recopie d'écran pour cette 
imprimante. 

Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de p^^eurs sur Jas¬ 
min ou comment »^rer une dis¬ 
quette. Tour d'h/Mizon des Moni- 
teurs-Assembleim du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 

Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modificatii^s «tdt MONrTEUR 
1.0 de LORIC»^ jCIROCKY ; jeu. 
Compte bar|ail|lt^' gérez-le sur 
MICRO-DISC ^). Compatibilité DTL 
2000 et JASMIN. 

Numéro 11 

Hors-série remptftftllie multitude de 
programmes en j^sÿenres. 

Numéro 12 

Eaivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 + un serveur 
pas cher. Schéma électronique de 


GRAPHISCOP. 
moire de l'O 
vous plaire 
Assembleur, 
(suite et fin). 


artage mé- 
Rlilaires pour 
Moniteur- 
Jompte bancaire 


Numéro 13 

Transfert du FORTH sur MICRO- 
DISC. TANDEM 13 un^ logiciel pour 
le DTL 2000. Jouez a!»c les cou¬ 
leurs de l'ORIC. IMIitairigs pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODI9C et JASMIN : 
ils communiquent. City on Raid : 
jeu. 

Numéro 14 

Le SEDORIC à la loupe. Un éditeur 
de caractères en langage ma¬ 
chine. CONJUGAISON: ORIC à 
l'école. Sortir le son sur le télé¬ 
viseur. Fenêtres (fln). Calculez 
votre Epargne-lJPgement. Scrol- 
llng latéral. Sauvegarde des vari¬ 
ables avec rORIC-1. Un utilitaire: 
Super Désassembleur. Jouez 
avec les Mots-Cachés. 


Numéro 15 

Une imprimante à l'essai : la MT 
SOS. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière G®u). Esssai de la carte 256 
couleurs de Miaptutur. Editeur de 
secteurs sur JastTln. JfUSICORIC 
pour que l'ORIC-l :<iiMfenne musi¬ 
cien. Carte série pour liaison avec 
MINITEL. Educatif : le moteur à 4 
temps. Redéfinition de caractères 
pourEASYTEXT. 

Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de l'écran TEXT en MIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel d'application de 


la carte série Minitel. Recopie ra¬ 
pide sur Imprimante mode texte. 
Ecriture évoluée.,^ ifONARD : utili¬ 
taire de dessM (1). Fiches de 
paye : commew' (iÈllculer les sa¬ 
laires avec ORIB. Jacqueries de cas¬ 
settes pour GP 50. Catalogue 
amélioré sur Jasmin. 

Numéro 18 

Un drive 3"1/2 à Triphonie : 
l'ORIC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : chirologie OU'Jéu ? Un jeu : 
Frog Panic. Pour KttBr un program¬ 
me à partir du MMITEL (et de la 
carte série) : MUST. Accordez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (lin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml009 
(Jasmin printer). Lister l'EPROM du 
Microdisc. 

Numéro 19 

Léonard : 'fin de l'utilitaire création 
graphique. Modifications de l'AT- 
MOS et du MICROOISC. Un minl- 
Interpréteur. Protection du Hl- 
MEM. Le tri en langage machina. 
Jeu éducatif : EUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC. Compte 
bancaire :gérez-le sur JASMIN. Uti¬ 
litaires pour vous plaire (4). 

Numéro 20 

CALCULATORÏy 6(100 d'essai - 
PUISSSANCE Ul' j^r Recopie d'é¬ 
cran pour F^EÉïPXT^ 80 - Mini Inter¬ 
préteur Basic. 

Numéro 21 

Les interruptions - Animation gra¬ 
phique en 3 D - jBItùÆingerie (1) - 
SEDUTIL pour miaitx!lKiliser SEDO¬ 
RIC - Recopie (pp» VIDEOTEX - 
Buffer soft pour imprimante - Super 
recopie d'écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants ^^USICORIC et 
JASMIN - (2) - 

SWAP OVEf^^^L Diététique: 
mieux s'aliméiwÉ’ ^^chéma de la 
carte contrôleur JASMIN — Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educatif : TAa^liWBi^Print Formaté 

- String : comwidÂgraphiques - 
Sauvetage d'Un^Moipamme - Cal¬ 
culs de rORK^^T^^es et collages 

- Casse-briques - clipping. 

Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - SingMhi (fit^ip alculs dans 
N - Dossier TBU^JIBAT - Mini- 
Print : éditeur d*.;bafièerolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 

Numéro 25 

Test : le Jasmin-PG.’ Ces fichiers 
dont tout le monde IKVle - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem color - En eavoTr plus sur FT 
DOS - Data + - ORIC à 2 ROM - 
MUSIC(I) 

Les articles et programmes rappelés 
ci-dessus ne forment que l'essentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de THEORIC. B/k 

«O» 













































20, rue de Montreuil - 94300 VINCENNES - “Sf (1) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 


JASMIN 2 "+" 

Le lecteur de disquette que votre Oric préfère. 


Il ne lui manque que la parole”, synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 

rampaonp ' 

□ synthétiseur vocal . . . JUlfF 240 F 


□ atmos 


□ lecteur double tète 


logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres :220 F pour 5 titres : 250 F 


TELESTRAT 

La télématique è la portée de tous I 
Puissant (64 K), doté d'un basic ”cosland' (plus de 250 
instructions), compatible ATMOS ou ORIC (par cartouche), 
accompagné d'un lecteur de disquette double tête (400 K) 
le TELESTRAT est déjà ainsi un ordinateur ”top niveau” ! 
Ajoutez-y toutes les ressources télématiques qu'il est capable 
de gérer sans interface, câble ou logiciel supplémentaire puis¬ 
que le TELESTRAT est le seul ordinateur où toutes les fonc¬ 
tions “MINITEL" sont intégrées d'origine et vous comprendrez 
que le TELESTRAT c'est l'ordinateur de demain disponible 
dès aujourd'hui ! 


□ mushroom mania 

□ centipëde 

□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengoric 

□ finances 

□ copy écran (pour GP 100) 

□ calculus 

□ super break out 


□ jogger 

□ calorie 

n le lièvre et la tortue 

□ le monde végétal 

□ hunchback 

□ la chenille infernale 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheron's rage 

□ ice giant 


□ carnet d'adresses 

□ trace dump 

□ black base 

□ oric-gestion 

□ oric mind 

□ yam 

□ guerre des couleurs 

□ gencar 

□ ciros 

□ fromage 

□ caractor 


MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il “discute' 
avec ses semblables et accède au réseau “minitel" 
Fourni avec interface intégrée et logiciel 
□ modem DIGITELEC.1 


□ TELESTRAT 


LOGICIELS CASSETTE 


□ souris 


f 40 F" [D meurtre gée vitesse 
110 F □ mission delta .... 
100 F □moniteur 1.0.... 
145 F Dmots croisés . . . . 

140 F □nessy. 

130 F □oric base. 

120 F □ orthocrack vol. 1 . . 
120 F □orthocrack vol. 2 . . 

. 95 F □orthocrack vol. 3 . . 

130 F □outimatic 1. 

145 F □pasta blasta . . . . 

250 F Orabbit . 

+2G-F- □A.T.M. 

1 on C t I _ 

I uu r "i_J puiyTivnivi. 

100 F □r.d.v. de la terreur . 

180 F □rat splat. 

125 F □reverse. 

150 F □saga. 

. 99 F □ Stanley. 

180 F □star. 

140 F □starter 3 d. 

120 F □ stresse. 

120 F □ super jeep. 

185 F □System'animation . 

160 F □ teknis. 

120 F □tendre poulet. . . 

140 F □ terminus. 

120 F □thehobbit. 

165 F □ tic tac. 

160 F □ tortue logic. 

140 F □triathlon. 

. 95 F □ ultima zone. 

125 F □ une affaire en or. . 

295 F □vision. 

290 F Ovonext. 

395 F □ waydor. 

160 F □world war 3 . . . 

250 F □ xénon 1. 

125 F □ xénon 3. 


< fl r 1—1 J- — _ 

I L/U I i_j oOooier 5 . • 

140 F □ dracula's revenge 
140 F □elephorm/color. . 

165 F □élysée. 

120 F □flipper. 

150 F □ formule 1. 

250 F □frelon. 

F □frigate comm.. . . 

44 0 F □fromage. 

120 F CDgest (gest. banc.). 
1 4 0 F □ gestio de stock . . 
120 F □hades. 


□ cartouche ROMATMOS 


□ 3 d fongus . . . 

□ 3 d munch . . . 
□add-sous . . . . 

□ annuaire . . . . 

□ ass. Symbol. . 

□ assimil (anglais) 


□ moniteur couleur 


□ cartouche RQMORIC1 


□ basic étendu 


Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 I 


□ bibliofiches.... 

□ doggy . 

□ brique à brac. 

□ le fer d'amukor . 

□ locus. 

□ business man. . . 

□ calcul mental. . . 

□ canni bail. 

□ carmaniac .... 

□ montsegur .... 

□ mission impossible 

..J callenger. 

□ citadelle . . 

□ clavidact ... 

□ Clovis 1 (échecs) . 

□ cobra. 


TIRVITT2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira ! 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVin2 .150 F 




n images (d.a.o.). 

□ insect insanity. 

□ intox ei zoé. 

L1 l'apprends l'anglais. . . 

I l'apprends la c.a.o.. . . 

) karaté . 

'l'aigle d’or. 

□ la cité maudite . . . . 

□ la flûte tnca. 

□ notwik puzzle. 

□ tyrann. 

□ le diam. île maud 

□ le général. 

□ le mand. dr genius . . 

□ le millionnaire .... 

□ le minotaure .... 

□ retour dr genius . . . 

□ le secret du tomb. . . 

□ le trésor du pirate . 

□ lissage. 

□ logo v1 0 . 

□ lorigraph. 

□ loritel. 

□ macadam bumper . . 

□ master paint. 

□ math-sam (math.prim.) 

□ méfies-toi de méphisto 


Rallonge Péritel ^ 

Ne soyez plus “collé” à l'écran 
□ rallonge péritel. 


Interrupteur 

Ne courrez plus le risque de faire sauter ta ROM 
□ interrupteur d'alimentation 85 F 


□ colorie. 

□ colossal adventure . . . 

□ compilateur graphique 

□ crypt show. 

□ dam buster. 

□ damsel in distress . . . 

□ dedal . 

□ dialogue. 

□ digger. 

□ dit ?d'ac ! (sc. nat. 5'). 

□ dit ?d'ac I (sys. aut.). . 

□ don juan et drageurs. 


Le "must” pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
“top niveau” des résultats obtenus, (ex. options : faire 
des points, traits, boites, cercles.texte, remplir, “zoom",...) 
□ graphiscop.990 F 


LIVRES 


□ guide pratique oric 1. 

□ prog. pour oric 1 . . . 

□ la prog. jeux aventure 

□ la conduite de l'oric . 

□ apprenez élec.sur oric 


□ interfaces pour oric. ... 59 F 

□ l'oric à nu.151 F 

□ guide pratique atmos . 78.50 F 

□ programme pour oric 1. . 85 F 

□ boite à outils pour oric ..35F 

□ jeux en basic sur atmos . 49 F 

□ 56 prog. pour oric .... 78 F 


□ l'oric à l'affiche. . . . 

□ prog. en lang. mach. . 

□ mieux prog. sur oric . 

□ applications du 6502 

□ manuel réf. t2 . . . . 

□ manuel de réf. t1. . . 

□ t-dos et ses fichiers . 


Imprimante CITIZEN 1200 

120 CPS - matrice 9x9- traction ou friction - jusqu'à 
3 ex. compatible E6S0N - garantie 2 ans • interface cen- 
ironie intégrée 

□ imprimante CITIZEN 120 D . 2490 F 


INTERFACE T.V, 


□ joystick compétition PRO. 
U bloc aiim URIC 

n alim 12 V pour péritel 

□ railong de bus 1 slot ... 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 


Cette interface va cous permettre de transformer votre moniteur couleur en T.V. 
□ interface T.V. 


Imprimante Smith Corona Fastext 80 
- 80 caract./sec., impression bidirectionnelle, 
entraînement par friction, interf. contronic. buffer 
intégré, écriture normale ou condensée 
□ imprimante fastext 80 . ^JWtTF 14 


Cassettes vierges C20 

□ les 5. 

□ les 10. 

Ü disquette vierge 3 pouces 


□ câble imprimante. . 

□ stylos pour MCP40 


Cette interface vous permet de laisser brancher en per¬ 
manence trois appareils utilisant la prise péritel. 

□ interface multipéri. 750 F 


□ ATMOS 


COMMENT COMMANDER : J» P"”'"'' 

- Cochef Ms) arlicMs) désiré(s) ou farles-en une liste sur une feuille à pan. - Faites le total + frais de pon (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F, 60 F pour tout achat supérieur à 1000 F). 

NOM :_PRÉNOM :_TEL :_ 

ADRESSE :_CODE POSTAL ;__ VILLE : _ 


Mode de paiement ; □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES réseau If l;l-]tr=I;il 






































































































































• Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal I Respectez simplement les horaires et les 
jours que nous vous indiquons : i 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 
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Courrier H- 

Sondage lecteurs _ 

Actualité - 

Essai ; STRATMON _ 
Nouveautés 

pourTELESTRAT _ 

TELESTRAT : stucture 
matérielle et togicielle 
Modifiez vos 

vieux ATMOS_ 

Don Jeanet DrAgon 

LCAT Cassette _ 

(XV : 80 colonnes — 


Les calculs en 

virgule flottante _ 

Essai : Interface 
Joystick programmable _ 
Tout savoir sur FT-DOS 

Trucs et Astuces _ 

Clavier Turbo_ 

Ces fichiers dont tout 

le monde parle (fin) - 

Histogrammes 

en3D(fin)_ 

Petites Annonces - 

Abonnement Disquettes 


Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande part, du 
droit d'auteur. De ce fait, ils ne peuvent être imités, 
contrefsüts, copiés par quelque procédé que ce soit, 
même p>aniellement sans l'autorisation ^rite de la 
Société SORACOM et de l'auteur concerné. Les opi¬ 
nions exprimées n'ef)gagent que la responsabilité 
de leurs auteurs. Les différents montages présentés 
ne peuvent être réalisés que dans un but privé ou 
scientifique mais non commercial. Ces réserves 
s'appliquent également aux logideis publiés dans 
la revue. 
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EDITORIAL 




Avec ce numéro 30, THEORIC souffle sa troisième bougie. Pour les nouveaux 
venus à l'ORIC, rappelons que la revue à vu le jour en avril 1984. Bimestrielle à 
sa naissance, elle est vite devenue mensuelle pour satisfaire à la demande de 
ses nombreux lecteurs. 

1987 sera l'année du décollage réel du TELESTRA T. Après quelques 
hésitations, la machine à communiquer pénètre dans le marché des PME, de 
certaines collectivités locales, des clubs et... des particuliers passionnés de 
télématique. 

Grâce à la fidélité de ses lecteurs, THEORIC continue à vivre et va ouvrir, en 
partie, ses pages à la télématique. Dès ce présent numéro, les possesseurs de 
TELESTRAT commenceront à découvrir bon nombre de secrets de cette 
fabuleuse machine. 



ORDIELEC 

19, rue Hippolyte Flandrin { 
69001 LYON ! 
Tél. 78.27.80.17 

Par minitel de 12hl5 à I4hû0 
et ae 19h30 à tOhOO à ce même numéro 

SPÉCIALISTE ORIC 

Démonstration Talestret 
on permanence 

Composants connoctique 
St cables. 

_C ompatib les I BM. 


COMMANDE ANCIENS NUMEROS 
(valable jusqu'à épuisement des stocks) 


Numéros 6à21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 


ATTENTION : NUMERO(S) EPUISE(S) : 1.2.3.4.5.8.16. 

NOM ...Prénom . 

Adresse . 

Code Postal .Ville . 

Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au-dessus 
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Les questions, ne nécessitant pas 
de longs développements, peu¬ 
vent nous être posées par Minitel, 
sur le 3615 code MHZ en ouvrant 
une B.A.L. Les réponses seront dé¬ 
posées sous 48 à 72 heures. 

Pour les questions écrites, deman¬ 
dant une réponse personnelle, ne 
pas omettre de joindre une enve¬ 
loppe affranchie self-adressée. 

TELESTRAT 

Un courrier de plus en plus volumi¬ 
neux concerne cette machine, dû à 
ses possibilités assez remarqua¬ 
bles, mais également... fort dérou¬ 
tantes. L'Hyperbasic est un langa¬ 


ge puissant, même s’il souffre, 
nous l'avons déjà écrit, de plusieurs 
imperfections. Nos lecteurs seront 
heureux d'apprendre que Fabrice 
BROCHE lance une nouvelle rubri¬ 
que consacrée au TELESTRAT et 
ce, dès le présent numéro de 
THEORIC. Il y a fort à parier que cet¬ 
te série aura du succès. 

ENVOI DE PROGRAMMES 

Les programmes, soumis à examen 
pour une éventuelle publication 
dans THEORIC, doivent nous par¬ 
venir impérativement sur cassette 
ou disquette. Envoyer un program¬ 
me à la revue, c'est accepter de le 
voir publier s'il est retenu par la ré¬ 
daction. Attention, nous ne pou¬ 
vons garantir aucun délai entre la da¬ 
te de réception de votre envoi et la 
publication éventuelle. Chaque en¬ 
voi doit nous parvenir accompagné 
d'une attestation manuscrite, certi¬ 
fiant sur l'honneur que l'expéditeur 
est bien l’auteur du programme et 
que ce dernier n'a pas été copié 
dans un livre ou une revue... 


DE Stéphane CHABANNE, 

58 COSNE-SUR-LOIRE 

Je possède un MICRODISC ; pour¬ 
quoi les jeux pour ORIC ne sortent- 
ils qu'en version cassette ? 

C'est hélas vrai... Seuls les heureux 
possesseurs de Jasmin (TRAN) ont 
pu obtenir des logiciels sur disquet¬ 
te (traitement de textes, assem¬ 
bleur, gestion de fichiers et quel¬ 
ques jeux). Ceci est surtout dû au 
fait que le MICRODISC n'a pas con¬ 
nu le succès qu'il aurait pu avoir, à 
cause de quelques problèmes de 
jeunesse. Puis les DOS se sont 
succédés, entraînant diverses in¬ 
compatibilités. Rien de tout cela 
n'aurait pu inciter les éditeurs à four¬ 
nir du logiciel sur disquette ! 

ORIC International a adapté, pour le 
TELESTRAT, des grands classi¬ 
ques tels que Harrier Attack, Super 
Meteors, Ultima Zone, Fligt Simula¬ 
tor, Galaxians, RatSplat, Dangereu¬ 
sement Vôtre et un jeu d'échecs. 
Nous aurons l'occasion d'en repar¬ 
ler prochainement. ^ 


SONDAGE LECTEURS - THEORIC N° 30 


......... 1 

Nul 

Moyen 

Bon 

Très bon 

1 

Passion¬ 

nant 

Courrier et Actualité 






Trucs et Astuces 






Bancs d'essais matériels et logiciels 






Modifiez vos vieux ATMOS 






Don Jean et Dr Agon 






LCAT Cassette 






QCV ; 80 colonnes sur ATMOS 


* 




Calculs en virgule flottante 






Structure du TELESTRAT 






Tout savoir sur votre DOS 






Clavier Turbo 






Ces fichiers dont tout le monde parle 






Histogrammes 3D (la série complète) 




_ 



A retourner à : Rédaction THEORIC (Sondage lecteurs) - La Haie de Pan - 35170 BRUZ 


Remarques éventuelles : 
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Est-ce que le FT-DOS pourrait fonc¬ 
tionner à la place du SEDORIC 
dans le MICRODISC ? 

Peut-être et au prix de nombreuses 
modifications... Mais cela serait 
sans intérêt (à part pour récupérer 
des logiciels "Jasmin"), car le SEDO¬ 
RIC est bien plus puissant que le 
FT-DOS. 

Rappelons que les disquettes de 
THEORIC, traditionnellement dupli¬ 
quées sous FT-DOS, peuvent être 
transférées sous SEDORIC au 
moyen de l’utilitaire "CONVERT" de 
ce dernier. 


Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 



DANS THEORIC N° 29 


• MONITEUR TELESTRAT, ligne 
2110, lire 10222 DEC et non 
10222 DEL. 

• THE CAR WAR, page 30, ligne 
1210, la somme de contrôle est 
1231 et non 123. Le 1 a été avalé 
lors de la photogravure... Avec tou¬ 
tes nos excuses. 

Modification de DATA -i- 
DOKEO, DEEK(#9C)-2 





TRAVAIL EN GROUPE 

Nous relançons cette idée, émise il 
y a quelques mois par un de nos 
lecteurs. Le but est de se grouper 
entre programmeurs, sous la coordi¬ 
nation d'un "responsable de pro¬ 
jet", afin de mener à bien la réali¬ 
sation d'un logiciel. Celui-ci pourrait 
être un utilitaire, un jeu, un éducatif 
de qualité, etc. Chaque participant 
se verrait confier une tâche particu¬ 
lière, dans le domaine de ses com¬ 
pétences. 

Nous attendons que des program¬ 
meurs chevronnés se fassent con¬ 
naître en précisant dans quel do¬ 
maine (musique, graphisme, assem¬ 
bleur, etc.) ils voudraient travailler. 

A ce jour, nous avons reçu fort peu 
de propositions. La création de logi¬ 
ciels de qualité est l’affaire de tous, 
réveillez-vous ! 



MINITEL MOINS CHER 

Le terminal offert par les PTT est 
très apprécié par certains utilisa¬ 
teurs. Pour d'autres, le coût d'utilisa¬ 
tion reste une limitation à l'emploi 
plus fréquent du Minitel. La société 
MIW fabrique une interface capable 
de mémoriser jusqu'à 30 pages 
écran. De plus, elle permet de con¬ 
naître le temps de connexion et le 
nombre d'unités dépensées pour 
chaque connexion. 

L’usager peut, en outre, créer des 
pages à partir de son Minitel, les mé¬ 
moriser et les réafficher ensuite : 
c’est l'ouverture vers d’autres appli¬ 
cations telles que l'animation de vitri¬ 
nes, etc. 

La version la plus simple du PBM 
(c'est son nom !) coûte 990 F HT. 


Une version intégrant une interface 
CENTRONICS (utilisation possible 
d'une imprimante) est proposée au 
prix de 1400 F HT. 

Si le produit vous intéresse, contac¬ 
tez INTER COMPOSANTS - 51, 
rue de la Vanne - 92120 MONT¬ 
ROUGE-tél. 1.45.55.80.24. 



WANTED 

Le sieur Francis POTTIER, au¬ 
teur de l'article ayant trait à la sortie 
son stéréo (THEORIC n° 29 page 
26) a omis de mettre son adresse 
sur les documents qu'il nous a trans¬ 
mis. Qu'il veuille bien se mettre en 
contact rapidement avec la rédac¬ 
tion. Merci ! 

QUE DEVIENNENT 
VOS PROGRAMMES ? 

Après l'avoir testé sous toutes ses 
coutures, bichonné et embelli, 
vous avez décidé d'envoyer votre 
programme à THEORIC, afin qu'il 
soit éventuellement publié. Que se 
passe-t-il entre le moment où, fé¬ 
brile, vous confiez aux PTT le soin 
d'acheminer votre travail et celui où 
vous découvrez votre listing dans la 
revue ? 

- Le logiciel, sur cassette ou dis¬ 
quette, est arrivé à la rédaction en¬ 
viron 3 à 5 jours après son expédi¬ 
tion. Il est soigneusement rangé 
dans un panier et, une fois par se¬ 
maine, ces "derniers arrivages" 
sont enregistrés. Ils sont mis en fi¬ 
che et un courrier (accusant récep¬ 
tion) est envoyé aux auteurs. Dès 
cette première étape, les réalisa¬ 
tions qui semblent vraiment origina¬ 
les sont mises à part et portent la 
mention "à tester rapidement". 

- Regroupés par genre (jeux, utili¬ 
taires, éducatifs, utilitaires disque, 
divers), les programmes attendent 
d'être testés. Il faut compter envi- 
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ron trois mois pour qu'une réalisa¬ 
tion soit examinée, sauf si elle por¬ 
tait la mention "à tester rapide¬ 
ment". 

- Le logiciel est bien fait, les do¬ 
cuments qui raccompagnent sont 
propres et précis, le texte de pré¬ 
sentation est mis en forme et part à 
la composition. Dès lors, nous en¬ 
voyons un courrier avisant l'auteur 
que son travail a été retenu. Sou¬ 
vent, il s'est passé 4/5 mois lorsque 
l'auteur reçoit la lettre. 

- Le logiciel présente quelques im¬ 
perfections, le texte n'est pas clair, 
la rédaction du mode d'emploi est à 
reprendre, etc. : la réalisation est 
momentanément mise de côté. Si 
les imperfections sont mineures, 
l'auteur est avisé par courrier (ou 
par téléphone) et invité à résoudre 
au plus vite les petits problèmes. 

- Un programme identique vient 
d'être publié : le vôtre est mis en at¬ 
tente et sera testé ultérieurement. 

- La rédaction ne convient pas à 
l'esprit de la revue ; l'auteur en est 
avisé et récupère tous ses droits 
sur son travail, y compris celui de fai¬ 
re une proposition à une autre re¬ 
vue. 

Un programme retenu peut n'être 
publié qu'un an après son envoi par 
l'auteur ! Ceci est une question liée 
à l'équilibre de la revue et il faut sa¬ 
voir patienter... 

CLUBS, RECENSEZ-VOUS ! 

On nous demande souvent l'adres¬ 
se d'un club régional ayant une sec¬ 
tion ORIC ou celle d'un club (même 
privé) susceptible de donner des 
cours d'informatique familiale... 

Dans le but de pouvoir répondre à 
ces questions, nous envisageons 
de publier dans THEORIC les adres¬ 
ses de ces clubs. Il faut que chacun 
se sente concerné, responsable 
ou simple membre, afin de faire con¬ 
naître à tous l'existence de son 
club. 

Nous espérons que cet appel sera 
entendu ; faites passer le messa¬ 
ge ! 

DEMANDEZ 
LE PROGRAMME ! 

Comme Michel ZUPAN avec le F83 
(voir THEORIC n° 29), Bernard 


LOFFET met à disposition des pos¬ 
sesseurs d'ORIC -t- SEDORIC inté¬ 
ressés, un logiciel en Freeware. Il 
s'agit d'une comptabilité au réel sim¬ 
plifié, destinée aux artisans. Ce logi¬ 
ciel gère et imprime les trois livres 
comptables, fait la déclaration de 
TVA, gère la caisse, le compte en 
banque, la balance. Le bilan et le 
compte de résultat peuvent être 
faits en fin d'année. 

Pour obtenir ce logiciel, il suffit d'en¬ 
voyer à l'auteur une disquette 3" et 
10 timbres à 2,20 F pour frais de 
photocopie et port. Bernard LOF¬ 
FET - Kercado - 56850 CAUDAN. 


NOUVEAU 

SUPPORT MAGNETIQUE 

Présenté lors du salon informatique 
le plus important d'Europe, le Ce 
BIT d'Hanovre, un nouveau sup¬ 
port magnétique, réservé au stocka¬ 
ge de l'information, a fait sensation 
auprès des utilisateurs d'ordina¬ 
teurs familiaux. Il s'agit de la "Soft Ta- 
pe", où soft a ici le sens de mou... 
et non de logiciel. En français, ce 
support vous sera présenté dans la 
presse informatique sous le nom 
de "cassette molle". 

Cette cassette révolutionnaire doit 
son nom à sa consistance physi¬ 
que : elle est en plastique mou dé¬ 
formable. Double avantage, elle ne 
sera pas écrasée lors de l'envoi par 
les PTT mais surtout, et c'est là 
l'idée de génie, elle absorbera 
toutes les variations de positionne¬ 
ment mécanique lors de son intro¬ 
duction dans le lecteur-enregis¬ 
treur. Ceci garantit la parfaite ortho¬ 
gonalité de la tête par rapport à la 
bande. 

Au sujet de la bande magnétique 
proprement dite, il convient de sou¬ 
ligner que celle-ci est "élastique". 
Elle peut en effet se déformer, resti¬ 
tuant à la lecture l'exact positionne¬ 
ment dans le temps des informa¬ 
tions stockées à l'enregistrement. 
Grâce à ce procédé, qui permet à la 
bande de s'allonger de 35 mn pour 
1 cm (ce qui est extraordinaire, il 
faut le souligner), les effets dus au 
pleurage mécanique sont rendus^ 
inexistants. 

La "cassette molle" permet l'utilisa¬ 
tion de vitesses d'enregistrement 
allant jusqu'à 24000 bauds (soit 10 


fois plus d'informations par unité de 
temps que l'ORIC en mode rapide). 
Cela permet de ranger sur une cas¬ 
sette de 60 minutes plus de 10 mil¬ 
lions d'octets. C'est pratiquement la 
capacité de certains disques durs. 

Si ce support magnétique vous inté¬ 
resse, n'hésitez pas à consulter 
votre revendeur pour une démons¬ 
tration ! 

Fabriquée au Canada parSalmon In¬ 
ternational, elle devrait être introdui¬ 
te sur le marché français dès cet 
été. Souhaitons qu'elle supporte la 
chaleur de l'accueil qui lui sera ré¬ 
servée. 


TELESTRAT : 

UNE NOUVELLE ROM 

La ROM V2.0B de l'Hyperbasic est 
sortie en mars, corrigeant une par¬ 
tie des problèmes rencontrés par 
les utilisateurs et, en particulier, 
ceux relatifs au passage TELEMA- 
TIC-BASIC. Contactez ORIC Interna¬ 
tional pour information. 


BOUTIQU’ORIC 

ORIC International ouvre une bouti¬ 
que à Paris. 

Vous pourrez venir y découvrir le 
Télestrat et les dernières nouveau¬ 
tés et, bien sur, acheter sur place 
tous les produits distribués par 
ORIC, de l'Atmos aux moniteurs. 
Adresse ; 39, rue Victor Massé - 
75009 PARIS. 

Ouvert du lundi au jeudi de 9h00 à 
13h00 et de 14h00 à 13h00 ; le 
vendredi de 9h00 à 13h00 et de 
14h00 à 17h00, fermé le samedi et 
le dimanche. 

AVIS DE RECHERCHE 

ORIC International est prêt à éditer 
tout logiciel de qualité. 

Si vos programmes sont beaucoup 
trop longs pour être publiés dans 
THEORIC, vous pouvez envoyer 
vos créations (en évitant les pro¬ 
grammes BASIC du style du Master- 
mind et autres biorythmes !) à ORIC 
International, 39 rue Victor Massé - 
75009 PARIS. 

Conditions particulièrement avanta¬ 
geuses pour les applications vidéo¬ 
tex (du type serveur clé en main). 
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STRATMON, 

UN MONITEUR TRES PRATIQUE ! 


TYPE : Utilitaire pourTélestrat 
SUPPORT : disquette 
PRIX; 200 francs 
EDITEUR : ORIC international 
AUTEURS : D & L. Ponelle 

Voilà un produit qui manquait aux 
explorateurs impénitents que sont 
les utilisateurs de Telestrat ! 

Il s'agit d'un véritable moniteur lan¬ 
gage machine, doublé en plus d'un 
assembleur immédiat, l'idéal pour 
faire ses premiers pas en assem¬ 
bleur ou aller bidouiller "in vitro" 
une routine déjà en place. 

Le logiciel est livré sur disquette. Il 
suffit de taper STRATMON et il se 
charge et s'exécute automatique¬ 
ment. 

Il est livré avec un manuel très didac¬ 
tique d'une quinzaine de page, gui¬ 
dant le néophite à travers ses quin¬ 
ze commandes.'Chaque comman¬ 
de est expliquée avec exemples à 
l'appui, histoire de ne laisser per¬ 
sonne dans l'embarras. Comme on 
dit dans ces cas là, un enfant (sa¬ 
chant lire) saurait s'en servir. 

Mais venons en tout de même à l'es¬ 
sentiel, c'est-à-dire à ses fonctions. 
La syntaxe des commandes est 
très inspirée du logiciel ORIC-MON 
qui était développé sur ATMOS. 
Dès que l'on tape un caractère erro¬ 
né, il faut retaper toute la comman¬ 
de. C'est un petit défaut, bien hiai- 
gre en contrepartie de la taille du lo- 


-Ihéoric. —- 

BIBUORia - 


les, puisque permettant presque 
toujours de le placer à un endroit 
tranquille pour vos applications... 
ou celles du commerce. 

Toujours dans le domaine des relo¬ 
cations, STRATMON est capable 
de reloger un programme quelcon¬ 
que, c'est à dire de recalculer tou¬ 
tes les références internes au pro¬ 
gramme. La limite de ce genre de 
manipulation est habituelle : toutes 
les références de type poids-faible 
poids-fort et les tables d'adresse. 
Quoi qu'il en soit, cette commande 
rend bien des services. 

Parlons rapidement des comman¬ 
des classiques : dump ASCII/ hexa- 
dédmal, désassemblage, modifica¬ 
tion d'octets (hexa ou en ASCII), 
exécution d'un programme, dépla¬ 
cement de zone mémoire, remplis¬ 
sage de zone mémoire, addition- 
soustraction-multiplications-division 
en hexadécimal. 

Deux commandes sont aussi très 
pratiques ; elles permettent de re¬ 
chercher à partir d'une adresse dofî- 
née une suite d'octets quelconque 
(donnés en hexa ou en ASCII), et 
de modifier par la même occasion 
les occurences de la suite d'octets. 

La recopie de toute commande 
peut se faire à tout instant par CTRL 
P. 

La commande Ctrl R (R pour ban¬ 
que ? dans quelle langue ?) permet 
de changer à tout instant de ban- 









U 


II 


PRATIQUE DES IMPRIMANTES 
Michel ARCHAMBAULT 
(SORACOM informatique) 
Prix : 95 F 

Enfin un livre simple, clair et pratique sur 
la bête noire qu'est devenue, pour beau¬ 
coup, l'imprimante. 

Qui ne s'est, un jour ou l'autre, cassé les 
dents sur une adaptation des caractères 
accentués, pourtant indispensables dans 
notre graphie ? Qui n'a pas perdu son 
latin devant des retours de chariot intem- 


giciel : seulement 3 Ko. 

Faire tenir tant de fonctionnalités 
dans cette taille impose nécessaire¬ 
ment quelques contraintes ! 

Notons à ce propos que STRAT¬ 
MON est capable de se reloger lui- 
même. Son emplacement originel, 
de #A000 à #AC5F, peut être gê¬ 
nant pour travailler en haute résolu¬ 
tion. Qu'à celà ne tienne, il suffit de 
taper X 10 et il se retrouve, toujours 
aussi exécutable, en #1000-#1C5F 
vous pouvez même le resauver sur 
disquette à cet emplacement mé¬ 
moire.Cette commande d'auto relo¬ 
cation (saint Larousse pardonnez- 
moi ce néologisme) est des plus uti- 


que mémoire, pour aller voir ce qui 
se passe dans le TELEMON ou le 
SRATSED. 

Finissons enfin par le mini¬ 
assembleur qui permet de rentrer di¬ 
rectement des mnémoniques, avec 
calcul des sauts automatique. Evi¬ 
demment, on ne dispose pas de la¬ 
bels symboliques, il faudra pour ça 
attendre TELE-ASS, la cartouche 
assembleur double passe. 

En résumé un moniteur très pra¬ 
tique, et qui complète par ses fonc¬ 
tions étendues de moniteur la car¬ 
touche TELE-ASS, dont le banc 
d'essai sera donné le mois pro¬ 
chain. 


pestifs ? Combien sont à la recherche 
d'un mode d'emploi cohérent ? La cause 
est souvent unique ; une méconnais¬ 
sance du matériel. 

Cet ouvrage vous plonge au cœur des 
imprimantes matricielles vous en expli¬ 
quant d'abord les principes de fonction¬ 
nement, puis les différents réglages 
(matériels et logiciels), et le parti que 
vous pouvez tirer de votre machine par 
la redéfinition de caractères, l'impression 
de tableaux ou la copie d'écran (pro¬ 
grammes à l'appui). L'ouvrage s'achève 
sur un lexique anglais-français que les 
malheureux qui possèdent un manuel 
dans la seule langue de Shakespeare 
seront ravis de consulter. 
Qserons-nous dire que les utilisateurs, 
après lecture attentive de ce livre, trou¬ 
veront la solution à la plupart de leurs 
ennuis ? Nous l'osons ! 
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PRODUITS NOUVEAUX 



V oici, en exclusivité, la présentation des produits (logiciels et 
matériels) qui viendront, dans les prochaines semaines, aug 
menter la puissance du TELESTRAT. Nous effectuerons, dans 
les prochains numéros de THEORIC, des essais complets sur ces pro¬ 
duits. 


TELE-ASS 


TELE-ASS : Edité par ORIC Inter¬ 
national pour le Télestrat, ce logiciel 
sur cartouche est vendu au prix de 
490 F. 

La cartouche se met dans le port 
droit et intègre l'assembleur et la 
Télématique. 

Il s’agit d'un véritable éditeur/assem- 
bleur-symbolique/moniteur. 

Ses points torts sont sans conteste 
son éditeur de source pleine page 
(le même que celui du BASIC, avec 
déplacement automatique dans le 
source etc...) son extrême rapidité, 
(plus d’un kilo octet de code objet 
généré par seconde !), et enfin le 
fait qu'il intègre en standard tous 
les labels et variables systèmes de 
la ROM du Telestrat (plus de 400 la¬ 
bels sont ainsi directement recon¬ 
nus). 


Notons aussi une foule d'instruc¬ 
tions pour le travail sur le texte sour¬ 
ce (RENUM, MERGE, SEEK et 
CHANGE pour les recherches et 
substitution de texte, DELETE etc. 

Il intègre une commande MODIF 
qui permet de modifier en pleine pa¬ 
ge la mémoire, et aussi une com¬ 
mande TRACE qui suit pas à pas 
l'exécution du programme, avec 3 
fenêtres simultanées à l'écran con¬ 
tenant en permanence les mnémo¬ 
niques de l'instruction exécutée, la 
valeur du registre d'état et la valeur 
des octets du sommet de la pile. 

On croit rêver ! Banc d'essai le mois 
prochain... 

TELE-FORTH : 

QUE LE FORTH SOIT 
AVEC LE TELESTRAT ! 


TELE-FORTH : Edité par ORIC In¬ 


ternational pour le Télestrat, langa¬ 
ge sur cartouche livré avec un ma¬ 
nuel de 70 pages environ, 490 F. 
Annoncé depuis longtemps, le 
FORTH arrive enfin dans sa livrée 
Télestrat. 

Les amateurs ne seront pas déçus : 
il est très, très rapide, il intègre tou¬ 
tes Jes fonctions de base du 
Télexât (graphisme, son, fenê¬ 
tres) et permet de travailler de ma¬ 
nière aussi simple qu'en BASIC sur 
la cartouche TELEMATIC, pour se 
faire des serveurs à faire pâlir le 
3615. 

Ouelques caractéristiques en vrac ; 

Le manuel est hyper complet, puis¬ 
qu’il donne, et c'est une exclusivité 
mondiaaallle, le "source" de cha¬ 
que mot Forth ; ceux qui veulent 
maîtriser totalement un langage se¬ 
ront comblés. 

Autre particularité, le TELE-FORTH 
offre, en plus de ses 300 mots 
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FORTH, une démonstration d'écri¬ 
ture du jeu de la vie (en ROM !) qui 
tourne aussi bien en mode TEXT 
qu'en mode HAUTE résolution, et 
dont le listing commenté est donné 
dans le manuel. 

Vocabulaire très complet donc (CA¬ 
SE, opérateurs 32 bits, #!N, opéra¬ 
teurs sur bit, fichier de démarrage, 
vecteurs "defer", un décompila¬ 
teur). 

Vous pourrez même générer des 
applications en EPROM. Le pied in¬ 
tégral ! 

Un éditeur de ligne standard est in¬ 
tégré en ROM. 

Seront disponibles sur disquettes 
un éditeur pleine page, un macro 
assembleur, et une librairie de cal¬ 
cul en virgule flottante. 

Bref, de l'excellent travail, banc d'es¬ 
sai complet le mois prochain. 

EXTENSIONS RAM : 

LA PUISSANCE 
DU DISQUE VIRTUEL 

ORIC International met sur le mar¬ 
ché deux extensions RAM pour Té- 
lestrat : 32 Ko (490 F) et 64 Ko 
(690 F) sous forme de cartouche. 
Elles sont livrées avec une disquet¬ 
te permettant de configurer le drive 
D en pseudo-disque RAM à utiliser 
comme disque virtuel, rendant les 
opérations sur les fichiers auxquels 
on accède souvent quasi instanta¬ 
nées. 

Nous donnerons prochainement 
dans Théorie des routines permet¬ 
tant de tirer parti de ces extensions 
pour gagner de la place en TELE- 
MATICpar exemple. 

En attendant, la possibilité du dis¬ 
que virtuel est un confort supplé¬ 
mentaire pour les serveurs : si les 
pages du serveur sont sur disque 
virtuel, leur accès est non seule¬ 
ment instantané, mais de plus ne 
perturbe pas l’affichage des pages 
ni la réceptioi^ des caractères en 
provenance du correspondant. 

Une foule d'applications sont envi¬ 
sageables. 

Par exemple, le logiciel MIDI utilise 
cette mémoire pour sauvegarder 
une quantité de notes incroyable. 

HORLOGE SAUVEGARDEE 

EXTENSION HORLOGE SAUVE¬ 


GARDEE disponible chez ORIC In¬ 
ternational, au prix de 500 F envi¬ 
ron, le prix exact ne nous ayant pas 
été communiqué à l'heure où nous 
mettons sous presse. 

11 s'agit d'une horloge temps réel, 
sauvegardée par pile, se branchant 
sur le bus d'extension. 

Mise à l'heure une fois pour toutes, 
l'horloge s'occupe toute seule des 
passages secondes minutes heu¬ 
res mois années, et ce sans être 
perturbée par les accès disque ou 
quoique ce soit d'autre, l'heure 
étant sauvegardée par une pile li¬ 
vrée avec l'horloge. 

Le circuit utilisé pour cette exten¬ 
sion intègre des fonctions alarme, 
permettant de générer un signal 
toutes les heures par exemple, ou 
toutes les dix secondes, ou encore 
le 22 mai 1988 à midi 30 minutes et 

12 secondes 3 centièmes ! 

Elle compte sur 24 heures ou 12 
heures, et a une précision du cen¬ 
tième de seconde. 

La dérive est de l'ordre d'une se¬ 
conde paran(!). 

Bref, une extension indispensable 
à tous ceux qui ont un serveur qui 
doit tenir compte de l'heure ou du 
jour (réservations par exemple) 
ou... tous ceux qui veulent avoir 
l'heure sur leur Télestrat. 

NB : cette extension fonctionne 
aussi bien sur ORIC-1/ATMOS que 
surleTélestrat. 

EXTENSION MIDI 

Nouveauté mi-hard mi-soft pour Té- 
lestrat puisqu'il s'agit d'un petit boî¬ 
tier se branchant dans l'extension 
MIDI accompagné d'une disquette 
contenant le programme MIDI. 

Le boîtier comporte des Led's per¬ 
mettant de suivre le déroulement 
des opérations, et gère 3 sorties 
dont 2 indépendantes et deux en¬ 
trées. 

Ce logiciel MIDI intègre entre autres 
fonctions un séquenceur. 

Disponible début Avril chez ORIC 
International (prix990 Francs). 

EXTENSION 80 colonnes 

Annoncée depuis longtemps, la car¬ 
te 80 colonnes sera bientôt disponi¬ 
ble. 


Voici en avant-première quelques 
unes de ses principales caractéristi¬ 
ques : 

- visualisation 80 colonnes couleurs 
(plus attributs de soulignement, cli¬ 
gnotement etc...), gérée directe¬ 
ment sous BASIC. 

- visualisation texte 40 colonnes en 
8 couleurs (plus double largeur, 
double hauteur, clignotement, jeu 
graphique redéfinissable) 

- visualisation 100 % compatible 
vidéotex, garantissant un éditeur 
de page vidéotex parfait ... et une 
Borne de communication sans con¬ 
trainte. 

La carte se branche sur le bus d'ex¬ 
tension et est livrée avec une car¬ 
touche Hyper-Basic et une car¬ 
touche Télématic. 

Bien entendu, les logiciels sont en¬ 
tièrement compatibles (y compris 
TELE-ASS, STRATMON, TELE- 
FORTH ...). 

Le processeur d'affichage ayant sa 
propre mémoire, la RAM du Téles- 
trat est entièrement libre jusqu'en 
#C000 (sauf pour les applications 
haute résolution qui gardent les mê¬ 
mes caractéristiques). 

BOITIER MULTI PRINT 

ORIC International distribue un boî¬ 
tier permettant de connecter 4 ou 8 
Télestrat à une seule imprimante 
série. 

L'avantage de cette extension est 
que la gestion des conflits est effec¬ 
tuée automatiquement par le boî¬ 
tier, et ce sans intervention manuel¬ 
le (bouton à tourner ou autre), ce 
qui n'est pas le cas des boîtiers 
équivalents distribués dans le com¬ 
merce. 

Cette extension est idéale pour 
ceux qui ont une batterie de Téles¬ 
trat en serveurs par exemple, ou 
pour partager une imprimante entre 
plusieurs machines. 

Le protocole est intégré à la ROM 
HYPER-BASIC 2.0b (et suivantes). 
Pour l'utilisation avec d'autres ordi¬ 
nateurs que le Télestrat, le protoco¬ 
le est très simple et facilement 
adaptable, la documentation livrée 
avec le boîtier vous dit tout sur ce 
point ! 

Prix: 1450 F (4 entrées une sortie) 
et 1950 F (8 entrées une sortie). 
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TELESTRAT: 
STRUCTURE MATERIELLE 
ET LOGICIELLE 

Fabrice BROCHE 


N ous entamons avec cet article une série sur la structure Inter¬ 
ne du Télestrat et des logiciels qui lui sont associés. Nous allons 
voir aujourd'hui l'aspect matériel. 


L'ORGANISATION 

MATERIELLE 

(voir synoptique) 


La structure interne a de nombreux 
points communs avec celle de l'At- 
mos. 

Nous ne les détaillerons pas trop, 
afin de ne pas dérouter l'utilisateur 


qui n'aurait pas débuté avec un At- 
mosou unOric-1. 

Le Télestrat est donc architecturé 
autour d'un microprocesseur 6502 
tournant à une vitesse d'horloge de 
1 MHz. 

La gestion de l'écran est confiée à 
une ULA (réseau de portes pré¬ 
programmé) qui s'occupe égale¬ 
ment du rafraîchissement des 


64 Ko de RAM dynamiques. 

La gestion du lecteur de disquette 
est assurée par un classique FDC 
(floppy disk controller), le FDC 
1793, associé au non moins classi¬ 
que séparateur de données 9216. 
Notons à ce propos que l'interface 
est très proche de celle d'un AT- 
MOS+MICRODISC, sauf en ce qui 
concerne la sélection de la RAM. 


Tableau 1 

Configuration des entrée s eortiee 


VIA 6522 -1 (adresses #300-#30F) 

ligne 

sens 

-1 

E/S associée 

rOle précis 

CA1 

IN 

CENTRONICS 

acknowledge imprimante 

CB1 

IN 

K7 

entrée K7 

CA2 

OUT 

PSG8912 

sélection boîtier BC1 ' 

CB2 

OUT 

PSG8912 

sélection boîtier BDIR 

PAO 

OUT 

CENTRONICS 

D0 

PA1 

OUT 

CENTRONICS 

D1 

PA2 

OUT 

CENTRONICS 

02 

PA3 

OUT 

CENTRONICS 

03 

PA4 

OUT 

CENTRONICS 

04 

PAS 

OUT 

CENTRONICS 

05 

PAS 

OUT 

CENTRONICS 

06 

PA7 

OUT 

CENTRONICS 

07 

PBO 

OUT 

CLAVIER 

! sélection des lignes 
(multiplexées) 

PB1 

OUT 

CLAVIER 

! 

PB2 

OUT 

CLAVIER 

I 

PB3 

IN 

CLAVIER 

lecture valeur de la touche 

PB4 

OUT 

CENTRONICS 

activation (strobe) 

PB5 



rcn connecté 

PB6 

OUT 

K7 

activation relais K7 i 

PB7 

OUT 

_ 

2mission série K7 


I VIA 6522-2 (adresses #320 à #32F) 


; ligne 

sens 

E/S associée 

1 rôle précis 

! CAI 

'IN 

MIDI 


1 CB1 

IN 

MINITEL 

détection d'appel 

■ CA2 

OUT 

MINITEL 

émission en ligne i 

' CB2 

OUT 

MIDI 

MIDI OUT 1 

1 PAO 

1 

OUT 

BANK 

! sélection du numéro j 

de la banque mémoire 

1 PA1 

OUT 

BANK 

! pour adresses au-dessus 
de#C000 

PA2 

OUT 

BANK 

10 > RAM 

: PA3 

IN 

MIDI 


: PA4 

OUT 

RS232 

0 RS 232 1 MINITEL 

i PAS 

IN 

SOURIS 

bouton droit 

1 PAS 

IN 

MIDI 

MIDI IN 

i PA7 

IN 

SOURIS 

bouton central 

PBO 

IN 

JOY 

droit 

1 PB1 

IN 

JOY 

gauche j 

PB2 

IN 

JOY 

feu 1 1 

1 PB3 

IN 

JOY 

bas 1 

PB4 

IN 

JOY 

haut J 

PB5 

OUT 

SWITCH 


! PB6 

OUT 

SOURIS ! 

activation port joystick droit j 

■ PB7 

OUT 

JOY 1 

activation port joystick gauche 


Tableau 2 
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3 . 


ACIA6551 (#31C à #31 F) 


ligne 

sens 

j E/S associée , 

I rôle précis j 

|TX J 

OUT 

RS 232 

1 MINITEL 

; émission des données ! 

1 1 

jRX 1 

' IN 

i 

1 RS 232 

MINITEL 

réception des données ' 

, DCD 

IN 1 

’ RS 232 

arrêt d'émission des données i 


OUT 

RS 232 

ACIA active 1 

CTS ' 

i 1 

IN 

RS 232 

ne pas utiiser à cause 

d'un bug de l'ACIA (!) 1 

1 RTS 1 

OUT 

RS 232 j 



Tabl«su 3 

Tout ce qui tenait sur la carte du 
Microdisc a été réduit en une ULA 
sur le Télestrat, vive la technologie ! 
Nous détaillerons, dans un article 
complet, les raisons de la non com¬ 
patibilité du SEDORIC avec le Téles¬ 
trat. 

La gestion des registres de com¬ 
mandes (sélection des 4 lecteurs, 
sélection de la face...), ainsi que la 
bufférisation du bus des lecteurs 
est confiée à une autre ULA. 

Une troisième ULA se charge de la 
bufférisation du bus interne (bus 
d'adresse, bus de données) et de 
la génération des signaux d'activa¬ 
tion des différents boîtiers périphé¬ 
riques. 

Un VIA 6522 s'occupe de la ges¬ 
tion de la prise K7, de l'imprimante 
et du processeur sonore PSG 
8912 (un grand classique, puis¬ 


qu'il prend place dans l'ORIC, les 
MSX, AMSTRAD et ATARI ST entre 
autres !). 

Le port libre du 8912 est occupé 
par la gestion du clavier. 

Le deuxième VIA 6522 s'occupe 
de la gestion de la prise MIDI, de la 
détection d'appel pour la ligne télé¬ 
phonique, des Joystick et souris, 
de la sélection de l'ACIA entre la sor¬ 
tie RS 232 et la sortie minitel et, en¬ 
fin et surtout, de la sélection entre 
les huit banques mémoires. 

Enfin, une ACIA 6551 s'occupe 
des liaisons séries (RS 232 et 
minitel). Elle est associée à un 
quartz permettant toutes les vites¬ 
ses classiques de 50 à 19200 
bauds. 

Pour une vision d'ensemble, se ré¬ 
férer au schéma synoptique. 

La configuration des entrées sor¬ 
ties est donnée aux tableaux 1,2 et 


Voici en résumé la liste des adres¬ 
ses d'entrées-sorties. 

Il est recommandé à l'utilisateur de 
ne pas s'aventurer à la création d'ex¬ 
tensions en-dessous de #380, ces 
adresses étant utilisées par les ex¬ 
tensions ORIC. 

Adresses Internes 
au Télestrat 


#300-#31 F 
#310-313 
#314 
#318 

#31C-#31F 

#320-#32F 

#330-#33F 


VIA 65221 
FDC1793 

contrôleur de disque 
contrôleur de disque 
ACIA 6551 
VIA 65222 
inutilisable 


Adresses disponibles 
sur le bus d'extension 


#340-#344 extension 80 colon¬ 
nes/clavier IBM 

#360-#371 extension horloge 
temps réel 

Le brochage des connecteurs (et 
ils sont nombreux !) sera donné le 
mois prochain dans ces colonnes. 

Le mois prochain, nous nous atta¬ 
querons à l'organisation logicielle, 
un gros morceau ! 


! SCHEMA SYNOPTIQUE DU TELESTRAT 

I 
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MODIHEZ 
VOS VIEUX 
AIMOS! 

Christian DEPARTE 



E n 1984, j'ai acheté un ATMOS chez A.S.N., en dépit de son dé¬ 
faut majeur, le foisonnement des connections. Aussi fus-je 
bien marri de constater, en me rendant acquéreur d'un nouvel 
ATMOS en 1985, Chez EUREKA, que la prise péritélévision ne nécessi¬ 
tait plus d'alimentation particulière. 


Armé d'un tournevis, d'une bonne 
loupe et de patience, j'entrepris 
d'explorer le phénomène. Côté cor¬ 
don péritel, je découvris une prise 
DIN mâle 8 broches, dont les 2 plus 
basses avaient été sectionnées et 
possédant une broche centrale. 

Côté ATMOS, la prise RGB présen¬ 
tait aussi un trou central supplémen¬ 
taire. 


Ouvrant le boîtier (adieu garantie), 
j'aperçu une horreur de petit fil 
blanc, directement piqué sur le 5 
volts du circuit imprimé, au pied du 
modulateur UHF. 

J'eus tôt fait de percer le port SKI 
(RGB) du vieil ATMOS avec une pe¬ 
tite mèche de 0 2.5 mm, d'y enfon¬ 
cer un petit contact femelle (récu¬ 
péré sur une vieille prise HP) sur le¬ 


quel je soudais préalablement 5 cm 
de fil de téléphone, l'autre extré¬ 
mité du fil étant soudée directe¬ 
ment sur le circuit imprimé. 

J'essayais le cordon du nouvel AT¬ 
MOS sur mon vieil ATMOS modifié 
et, joie immense, ça marchait du ton¬ 
nerre. 

Fort de ce premier exploit de néo¬ 
phyte en électronique, je cherchais 
à savoir ce qui se passait du côté 
cordon. Hélas !!! les cordons 
A.S.N. sont sertis dans du caout¬ 
chouc injecté dans les prises et il 
est impossible de les décortiquer 
sans les endommager irrémédiable- 
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ment. 

Par bonheur, il n’en allait pas de 
même du câble EUREKA. J'y dé¬ 
couvris le montage suivant qui, réa¬ 
lisé avec 3 mètres de câble blindé 8 


Tous les composants doivent tenir, 
sans se court-circuiter, dans le boî¬ 
tier péritel. A cet effet, il convient 
de coller en faisceau les 4 conden¬ 
sateurs, puis de souder directe- 


Je précise que je ne connais quasi¬ 
ment rien à l'électronique et que j'y 
suis arrivé avec un peu de patience 
et beaucoup de soin. Mais quel sou¬ 
lagement, ces fils en moins !! 


^ r 11)' ' \ 

— \ "'.V — N. .X > V — 



T 


Prise DIN mâle 
/ côté fils 


.'T'/"'T] 


LU g > W 

X ti 
^ O s O 

g > > > 

. w I 


LU 

< ^ 
Q LU 




CABLES FILS BLINDE 


BLINDAGE 

- ROUGE 

— VERT 


- 5 VOLTS 
SYNCHRO 


fils, une prise DIN mâle 8 broches 
(dont une centrale, les 2 du bas 
étant condamnées), une prise péri¬ 
télévision mâle 20 broches (7 seule¬ 
ment sont utiles), 4 diodes 1N4 
148, 4 condensateurs chimiques 
63 V 4,7 uF, 1 résistance céra¬ 
mique de 47 Q et une autre de 1 Q, 
m’est revenu à une cinquantaine 
de francs. 


ment les diodes dessus au ras des 
pattes, puis de couper tout ce qui 
dépasse. Les 2 résistances et les 
fils rouge, vert, bleu, masse et celui 
issu de la dernière diode sont sou¬ 
dés directement sur les broches de 
la péritel, celles-ci ayant été préala¬ 
blement extraites, puis de nouveau 
serties, une fois les soudures com¬ 
modément effectuées. 



4 X 4,7 nF/63 V 
(veiller à la polarité) 
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DONJEAN s 






mm 


Michel BUZON 


S tratégie et aventure à la fois, Don Jean et Dr Agon est un jeu 
qui sait utiliser les ressources de l'ORIC : effets sonores, cou¬ 
leur, caractères redéfinis. Bref, un programme à analyser 
pour reprendre des idées utilisables dans vos réalisations ! 

vous), saurez-vous retrouver la prin- Xu 

cesse Taik' Onery (c'est elle) en évi- 

tant les pièges de l'ignoble Dr Agon \ C 

(c'est lui) ? Arbitres de ce drame af- 'Vjy^îr^ fCQ I J 

freux, le hasard, la stratégie et... la/-^r~T^. i \ Ja 

chance! // - 

Tous à la citadelle I o\ 'Ssc* ^ ^ 


JEAN 


Dr AGON 


******************************* 


BUZON - Sept.1986 


O REM 

1 REM ♦****♦**•»***iinne*****»*-jnn<--in<-* 

2 REM * * 

3 REM * . . DON JEAN Z< Dr AGON . . * 

4 REM * * 

5 REM *******-»nnnn(-**->nnnne**-»nn<-**** 

6 REM 

7 REM par Michel BUZON - Sept.1986 

8 REM 

9 REM 

14 K=ABS(PEEK(#DOOO)=169) 

15 P0KE618, lO; IV=#E6CA-t-160*K: CALLl V: C 
V=#E807 -h 3 13*K : P=4aOOO : BR=#FAB5-i-1 1 9*K 

20 BT=«FAFA+26*K.: BC=#FB10-»-26*K : CLS: PA 
PER6: INKO: F0RF=0T039; POKEP-*-F, 22: NEXT 

25 CALLBR:DIMPR*(16):GOSUB999:G0SUB9G 
O:F0RF=1T03Ü1:READD:NEXT:C$=CHR$(126) 

30 XV(O)=4;YV(O)=-2:FORN=lTD8:XV(N)=X 
V (N-1 ) -^4: YV (N) = YV (N-1 ) +3: NEXT ; X= 1 4 

40 F0RF=1T03:PR»(X)=PR* (X)-^CHR$(16) ;N 
EXT;PR$ (X) =PR$ (X) -t-CHR* (22) : F0RF=1T03 

45 PR*(X)=PR$(X)-t-PR$(X) : NEXT: PR$ (X) =C 
HR* ( 19) +LEFT* (PR* (X ) , 31 ) -t-CHR* ( 19) : X=15 

50 F0RF=1T031:PR*(X)=PR*(X)+CHR*(22): 
NEXT: PR* (X) =CHR* ( 19) -t-PR* (X) +CHR* (19) 

55 F0RF=1T033: PR* (16) =PR* ( 16) -t-CHR* ( 19 
) : NEXT : PL=#26D-^ 13*H:; : NL=#26F+15*K 

60 LA*(0)="3) ; ) 7) K) 4-i-e-t-H-i-3,7, ?, C, K, 8. 
D.7/;/C/G/01<1H1;272G2K204" 

61 LA* ( O ) =LA* ( O) -I- 44e4?5C5K507a7D778C 
aGa4:8:H;3;?;G;0=4=<=e=H=;>" 

62 LA*(1)="3)7) ; )?)C)K;)7, î , ?,G,K,3/; / 
C/G/327272C2K23575; 575C5G5K5’* 

63 LA*(l)=LA*(l)-i-"7a;a?a6BK83; ; ;C;G;K 
;3>7>?>C>G>K>*' 

64 LA* (2) ="4-i-B+<-i-@-vD-i-H-t-4.8. <. G. D. H. 41 
81<ieiDlHl4484< 4@4D4H475?5G5" 

65 LA*(2)=LA*(2)-t-”3a78;a?8C8G8K83;7; ; 
;?;C;G;K;" 

66 LA* (3) =" ; ) ?)K) 4-i-D-t-3, 7, C, G, <. L. ; / ?/ 
K/41D13272C2G2<4L4;575K547D7" 

67 LA*(3)=LA*(3)-i-’'387aC8G8<:L: ; ;7;K;3 
>7>C>G>" 

68 LA*(4)="4-i-<-t-D-^H-i-7,'-,G,a.(s!.H.3/; /C/ 
K/4 1<1D172?2G284@4H435; 5C5K5" 

69 LA* (4) =LA* (4) -t-"47<7D77a?8G88: @: H: 3 
; ; ;C;K;4=<=D=" 

70 LA* (5) ="K)8-t-D-t-3,7,7% C,4.8.e.D.L.7/ 
; /C/G/41 <1@1H184D4.3575?5C5K5" 

71 LA* (5) =LA* (5) -H’’47a7®7D7L778; aC8G84 
: e: 3; 2; K; 4=<=e=H=C ->" 

72 LA*(6)=";)G)3,7,?,C,K,4.@.L.7/;/C/ 


\o) 


G/81D175; 5C5G587D73878 ?aCSKB"^V,i_.J>^ 

73 LA* (6) =LA* (6)-t-"4:0:L:7; ; ;C;G: B = D=3 
>?>K>" 

74 LA* ( 7) = ''7) ?) G) 4-i-<-i-D-t-L + 4. •=.. D. L. 3/7/ 

;/C/G/81@1H1048404H4" 

75 LA* (7) =LA* ( 7 ) -t-"75; 5C5G5K:547<7D74 : < 
:D:L:3;7; ; ; ?;C;G;a=e=H=" 

76 LA* (8) =" ?) K) 0-*-4-i-<-i-@-t-H-H3, K, < . O. 7/ ?./ 
G/41D172?2G2K204<4e4L4K5" 

77 LA*(8)=LA*(8)+"4787@7D778Ca3; ; ; K;4 
=<=H=3>;>K>" 

78 LA* (9) ="4-i-<-t-@-t-H-t-3, K, 8. D. 7/G/32T-'2K2 
<4@435?5G57BG88: D: 3; K; 4=<=(a=H=" 

79 DIMG*(21);R*=CHR*(150):V*=CHR*(18) 

:M*=CHR*(21):D*=CHR*(138) 

80 G* ( 1 ) =R*-i-R* 

81 G* (2) =G* ( 1 )-►G* ( 1 ) 

82 G* (3) =G* (2)-^G* ( 1 ) 

83 G* (4) =G* (3)-t-G* ( 1 ) 

84 G* (5) =G* (4)-i-G* (4)-t-G* ( 1 )-^R* 

85 G* (6) =G* ( 1 )-t-R*+D*-t-V*-t-”mn "-t-G* (2)-t-D 
*-i-M*-t-"ef "-t-G* (2) 

86 G* (7) =G* (2) ■t-D*-t-V*-t-"mn "-t-G* (2)-t-D*-t-M 
*-t-"e-f "-t-G* (2)-t-R* 

87 G* (8) =G* (2)-t-D*-t-V*-t-"op "-t-G* (2)-t-D*-t^M 
*-t-"gh "+G*(2)-t-R* 

88 G* (9) =G* ( 1 )-t-R*-i-D*-i-V*-t-"op "-t-6* (2)-t-D 
*-t-M*+"gh "-t-G*(2) :G*(10)=G*(5) 

89 G* ( 1 1 ) =G* (2) -t-R*-t-CHR* (128)-t-"MERCI"-t- 
G* (3) : G* ( 12) =G* (4) +G» (3) -t-R* 

90 G* ( 13) =G* (2) -t-CHR* ( 128) -t-" MON "-t-G* (2) 
-t-R* : G* ( 14 ) =G* ( 4 ) -t-G* ( 1 ) -t-R* 

91 G*(15)=R*-t-CHR*(12a)-t-"HER0S"-t^G*(l) : 
G* ( 16) =G* (3) -t-R*; G* ( 17) =G* (16) 

92 G* £ 18) =G* (2) -t-R*: G* ( 19) =G* ( 18) ; G* (2 
O) =G* ( 1 ) -t-R*; G* (21 ) =G* (20) 

93 REM - 

94 REM : DONNEES DE L'INDICATIF : 

95 REM - 

96 REM 

97 REM 

101 DATA 3,1,2,5,2,8,24 'DOMaj - 

102 DATA 3,1,2,5,2,0,4 'DO 

103 DATA 3, 1,2,5,2,8,4 'DO 

104 DATA 3,1,2,5,2,8,24 'DO 

105 DATA 3, 1,2, 5,2,8, 4 'DO ■ 

106 DATA 3, 1,2,5, 2,8, 4 'DO j ‘A ' 

107 DATA 3, 1,2,5,2,3,8 'DO \\[ 

108 DATA 2, 8, 2, 1,2,5, 8 'SOL 'Cyr-V ' 

109 DATA 3, 1,2,5,2, 8,8 'DO | 

110 DATA 3,5,2,8,2,1,8 'MI ) i 

111 DATA 3, 1,2,5,2,8, !.i 'DO I i 


3, 1,2,5,2,8,24 
3, 1,2,5,2,0,4 
3, 1,2,5,2,8,4 
3, 1,2,5,2,8,24 
3, 1,2,5,2,8,4 
3, 1,2,5,2,8,4 
3, 1,2,5,2,3,8 

2 . 8 . 2 , 1 , 2 , 5,8 
3, 1,2,5,2,8,8 

3.5.2.8.2, 1,8 
3, 1,2,5,2,8, ! .i 


'DOMaj 
'DO 
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théoric_ 


112 

DATA 

2 

,8 

O 

172 , 5,8 

'SOL 

113 

DATA 

3 

, 1 


5,2,8,8 

'DO 

114 

DATA 

3 

, 1 

t2. 

572 , 1,8 

'MI 

115 

DATA 

3 

, 1 

,2, 

4,2,8,24 

'DOmin - 

116 

DATA 

3 

,1 

•y 

472 , 8,4 

'DO 

117 

DATA 

3 

, 1 

,5, 

4,2,8,4 

'DO 

118 

DATA 

3 

, 1 

,2, 

472 , 8,24 

'DO 

119 

DATA 

3 

,1 

i2, 

472 , 8,4 

'DO 

120 

DATA 

3 

, 1 

t2, 

4,2,8,4 

'DO 

121 

DATA 

3 

, 1 

72, 

4,2,8,8 

'DO 

122 

DATA 

2 

,8 

O 

« 1 

172 , 4,8 

'SOL 

123 

DATA 

3 

, 1 

O 

4,2,8,8 

'DO 

124 

DATA 

3 

,4 

72 , 

8,3,1,8 

'Mlb 

125 

DATA 

3 


72 , 

472 , 8,8 

'DO 

126 

DATA 

O 

,8 

72 , 

1,2,4,8 

'SOL 

127 

DATA 

3 

, 1 

n ^ « 

4,2,8,8 

DO 

128 

DATA 

3 

,4 

7 2, 

8,3, 1,8 

'Mlb 

129 

DATA 

3 

,3 

O 

12,2,8,24 

'SOL 7 .- 

130 

DATA 

3 

,3 

72 , 

12,2,8,4 

'RE 

131 

DATA 

3 

, 3 

f ^ f 

12,2,8,4 

'RE 

132 

DATA 

3 

,3 

72 , 

12,2,8,24 

'RE 

133 

DATA 

3 

,3 

72 , 

12,2,8,4. 

'RE 

134 

DATA 

O» 

,3 

72 , 

12,2,8,4 

'RE 

135 

DATA 

3 

,3 


12,2,8,8 

'RE 

136 

DATA 

2 

, 1 


, 8,2,3,8 

'SI 

137 

DATA 

3 

,3 

72 , 

12,2,8,8 

'RE 

138 

DATA 

3 


73 , 

3,2, 12,8 

'FA 

139 

DATA 

3 

,3 

7 2, 

12,2,8,8 

'RE 

140 

DATA 

2 

,12,2 

, 8, 2, 3, 8 

'SI 

141 

DATA 

3 

,6 

72 , 

12,2,8,8 

'FA 

142 

DATA 

4 

» 3 

73 , 

6,2,12,8 

'RE 

143 

DATA 

4 

, 1 

73 , 

5,3,2,128 

' DOMâ j - 

144 

REM 






145 

REM 






146 

REM 

— 

— 

— 



147 

REM 

! ROUTINE LM.Y A T 

'IL UN MUR?! 

148 

REM 

— 

— 

— 



149 

REM 






150 

REM 






155 

FOR 

1 = 

0 

TO 

53:READ D» 

:D=VAL("#"+D 


t):PQKE #465+1,D:NEXT 
160 DAT^^ A2,29,A9,00,9D,3B,04,CA, 10,F 
A, 60, A9,00,80,00,04,A2,62,CA,30,20 
165 DATA AO,OO,AD,02,04,DD,03,04,00,O 
2,AO,01,CA,30,11,CO,01,DO,EA,AD,01,04 
170 DATA DD,03,04,DO,E2,A9,O1,80,00,0 
4,60 

198 REM 

199 REM 

200 REM - 

201 REM ! . REDEF. DES MINUSCULES . 1 

202 REM - 

203 REM 

204 REM 

205 FOR F=46080+ASC("a")*8 TO 46080+A 
SC("q")*8+7:READ DrPGKE F,D:NEXT 

210 DATA 0,7,13,6,1,31,29,25,0,56,44, 


, 235 DATA 7,6,14,15,31,31,31,0,48,48,5 

6,56,60,60,60,0 

! 240 DATA 0,27,11,9,15,7,3,3,0,48,16,0 

,48,16,16,24 

! 245 DATA 3,7,15,31,31,31,31,0,48,56,5 

, 6,60,62,62,62,0 
I 250 DATA 1,1,2,5,10,21,42,53 

, 251 REM 

' 252 REM 

I 255 REM - 

' 256 REM ! JEU OU INSTRUCTIONS ? ! 

I 257 REM - 

I 258 REM 

< 259 REM 

î 260 GOSUB 500:IN*="VOULEZ-VOUS LES IN 

• STRUCTIONS (0/N)":F0R L=0 TO 1 

! 265 PL0TK+1,L+15,10:PL0TK+2,L+15,IN$: 

' NEXT L:GOSUB 310 

! 270 CALL CV;GET A$:IF A*<>"0" AND A$< 

' >"N" THEN 270 

! 280 CALL IO:IF A»="0" THFN 624 ELSE 8 

I 70 

. 293 REM 

I 294 REM 

! 295 REM - 

; 296 REM ! EXECUTION INDICATIF ATTENTE! 

I 297 REM - 

! 298 REM 

] 299 REM 

! 300 DOKE 49081,#0C01:PLOT K+4,26,"TAP 

1 ER Z ESPACE 1 POUR CONTINUER" 

' 310 CALL CV;RESTORE:FOR IN=1 TO 43:RE 

I AD 01,N1,02,N2,03,N3,W 

, 320 IF PEEK(#208) 056 THEN CALL IV: RE 

' TURN 

! 330 PLAY3,0,0,0:MUSIC1,01,N1, 15:MUS.IC 

, 2,02,N2,15:MUSIC3,03,N3,15:WAITW+K+W/4 
' 340 PLAY 0,0,0,0:NEXT IN 

I 350 GOTO 310 
, 39^ REM 

' 394 REM 

I 395 REM - 

, 396 REM I EFFACEMENT 2X3 CASES (EF) ! 

' 397 REM - 

I 398 REM 
, 399 REM 

■ 400 FOR L=0 TO 1: FOR C=0 TO 2:P0KE EF 

J +C+L*40,16:NEXT C,L:RETURN 
, 403 REM 

• 404 REM 

405 REM - 

406 REM 1 ECRITURE 2X3 CASES (EC) I 

' 407 REM - 

I 408 REM 

1 409 REM 

• 410 FOR L=OT01:POKE EC+L+40,PA:FOR C= 

' 0T01:P0K:E EC+1+C+L*40,CH+C+2*L;NEXTC,L 


24,32,62,46,38 

215 DATA 19,7,14,28,24,24,31,0,34,0,8 
,30, 10,2,62,0' 

220 DATA 0,5,7,1,7,13,30,30,0,42,58,3 
4,58,58,58,62 

225 DATA 30,13,7,3,3,2,6,0,58,58,58,5 
0,50,18,26,0 

230 DATA 0,21,21,31,27,27,15,15,0,20, 
20,60,60,60,56,56 


411 RETURN 

416 REM 

417 REM 

418 REM - 

419 REM IVERIF.SI RIEN A -DE 3 CASES I 

420 REM - 

421 REM 

422 REM 

425 XI=(XC-8)/4;XI=XI+(XI-Z)+(XI>Z) 
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426 XA=(36-XC)/4:XA=XA+(XA-2)*(XA>Z) 

427 YI=(YC-1)/3:YI=YI+(YI-Z)*(YI>Z) 

428 YA=(22-YC)/3:yA=YA+(YA-Z)*(YA>Z) 

429 FOR X=XC-XI*4 TO XC+XA*4 STEP 4 

432 FOR Y=YC-YI*3 TO YC+YA*3 STEP 3 

433 IF PEEK(P+X+Y*40)=CO THEN DS=DS+1 
:GOTO 435 

434 NEXT Y,X 


565 PR$(5)=PR$(5)+CHR$(138)+"DON JEAN 
S< Dr AG0N'’+CHR4 ( 1 28)+CHR$ ( 136) 

570 PR«> (5) =PR$ (5) +''q "'t-C$+C$+C«. 

575 FOR F=6 TO 10:PRT<F)=" ": FOR R=1 

TO 7 

580 IF R=2 AND F>=9 THEN PR$<F)=PR$(F 
)+" ":GOTO 590 
585 PR$ <F)=PR$(F)+C* 


435 RETURN 


590 NEXT 


440 REM 


595 FOR R-1 TO 26:PR«(F)=PR*(F)+" ": N 


441 REM 

442 REM - 

443 REM ! DESSIN DE LA CITADELLE ! 

444 REM - 


EXT:PR*(F)=PR$ <F)+C*+C*:NEXT 
600 PR*(11)=" ":FOR F=1 TO 9:PR*(11)= 
PR*(11)+C*:NEXT 

605 FOR F=1 TO 13: PR*(11)=PR*(11)+" " 


445 REM 

446 REM 

450 EC=PT:PA=20:CH=105:GOSUB 410:RETU 
RN 

451 REM 

452 REM 

453 REM - 

454 REM : DESSIN DON JEAN/PRINCESSE ! 

455 REM - 

456 REM 


I +C*: NEXT: PR* (11) =PR* (11) -t-C* 

I 610 FOR F=12 TO 13:FOR R=1 TO 37:PR*( 

I F>=PR*(F)+C*:NEXT R,F 

I 615 FOR F=1 TO 13:PRINT PR* (F):NEXT: R 
' ETURN 
[ 617 REM 

618 REM 

, 619 REM - 

I 620 REM ! INSTRUCTIONS! 

I 621 REM - 


457 REM I 

460 EC=PJ:PA=21+3*(FP>0):CH=101-8*(FP I 


>0):GOSUB 410:RETURN 

461 REM 

462 REM 

463 REM - 


622 REM 

623 REM 

624 DOKEPL,48520+40*K:POKENL,14:D0KE« 
278,48600:DOKE#27C,560 

625 CALL CV:ZAP:CLS:GOSUB999:PRINT 

626 PRINT“LA PRINCESSE"CHR*(128)"TAIK 


464 REM ! SON Dp 11 D.JEAN ou PRINC ! 

465 REM - 

466 REM 

467 REM 

470 IF FP=0 THEN GOSUB 1300 ELSE GOSU 
B 1350:RETURN 

498 REM 

499 REM 

500 REM - 

501 REM !.PRESENTATION.! 

502 REM - 

503 REM 

504 REM 

505 FOR F=1 TO 6:PR*(1)=PR*(1)+C*+" " 
: NEXT 

506 PR*(1)=PR*(1)+CHR*(129)+"MICHEL B 
UZON PRESENTE" 

510 FOR F=1 TO 11 : PR*(2)=PR*(2)+C*:NE 
XT 

511 FOR F=1 TO 25:PR*(2)=PR*(2)+" ": N 
EXT : PR*(2)=PR*(2)+"q" 

515 N=3:GOSUB 545 

520 FOR F=1 TO 24:PR*(3)=PR*(3)+" ":N 
EXT:PR*(3)=PR*(3)+"q"+C* 

525 N=4:GOSUB 545 

530 PR*(4)=PR*(4)+CHR*(133)+CHR*(138) 
+ "DON JEAN ?/ Dr AGON"+CHR* ( 1 28)+CHR* ( 1 
36) 

535 PR*(4)=PR*(4)+" q"+C*+C* 

540 GOTO 560 

545 FOR F=1 TO 11:IF F=9 THEN PR*(N)= 
PR*(N)+" ": GOTO 555 

550 PR*(N)=PR*(N)+C* 

555 NEXT:RETURN 

560 FOR F=1 TO 9;PR* (5)=PR*(5)+C$:NEX 
T:PR*(5)=" "+PR*(5)+" "+CHR*(133) 


‘ONERY"CHR*(132) ; :EC=48247:PA=126 
630 CH=109:GOSUB 410:GOSUB lllO:PRINT 
"A ETE ENLEVEE":PRINT 
635 PRINT"PAR L'IGNOBLE"CHR*(129)"Dr 
AGON"CHR*(132);:EC=48266: PA=1:CH=97 
640 FOR L=0 TO 1 : PO)E EC+3+L*40,O:NEX 
T L:GOSUB 410:GOSUB 1810 
645 PR INT"QUI LA SEQUESTRE": IF K=1 TH 
EN PRINT 

647 PRINT"DANS UNE DES 64 PIECES DE S 
ON CHATEAU." 

649 IF K=1 THEN PRINT 

650 PRINT"VOUS,"CHR*(133)"DON JEAN HE 

RALD BOLL"CHR*(132)", "; :EC=48335:PA=5 

660 CH=101:FORL=OT01:POKEEC+3+L*40,O: 
NEXTL:G0SUB410:GOSUB1910 
665 PRINT-DEVEZ LA":PRINT:PRINT"DELIV 
RER ET LA RAMENER DANS VOTRE":PRINT 
670 PRINT"INEXPUGNABLE CITADELLE...." 
:EC=4B393:PA=4:CH=105:FOR L=0 TO 1 
675 P0KEEC+3+L*40,O:NEXTL:GOSUB41 O:GO 
SUB300:CLS:GOSUB999 
715 PRINT:PRINT"LE"CHR*(129)"Dr AGON" 
CHR*(132)"N'EST VISIBLE QUE QUAND" 

720 GOSUB 950:PRINT"IL TUE SES ADVERS 
AIRES.":GOSUB 950:GOSUB 1510 
725 PRINT"VOUS AVEZ TROIS VIES.";:GOS 
UB1610:PRINT"LA PREMIERE VOUS" 

730 GOSUB 950:PRINT"PERMET DE VOUS DE 
PLACER DE 8 CASES":GOSUB 950 
735 PRINT"A LA FOIS.LA DEUXIEME DE 6 
ET LA "-.GOSUB 950 

740 PRINT"TROISIEME DE 4, COMME"CHR*( 
128)"LA PRINCESSE.":GOSUB 950 
750 G0SUB300: F0RF=1T03: G0SLIB950: NEXT 
760 PRINT"IL VOUS FAUDRA D'ABORD PLAC 
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ER VOTRE":GOSUB 950 
765 PRINT"CITADELLE; PUIS LE"CHR*(129 
)"Dr AGON"CHR*(132)"CHOISIRA" 

770 GOSUB 950:PRINT"SA CHAMBRE SECRET 
E.":GOSUB 950 

775 PRINT"LORS DE VOS DEPLACEMENTS A 
L'AIDE DES":GOSUB 950 
780 PRINT"TOUCHES FLECHEES,IL SE PEUT 
QUE VOUS ":GOSUB 950 

785 PRINT"SOYEZ ARRETE PAR UN MUR INV 

ISIBLE_":D0KE49080,#0412:G0SUB950 

790 G0SUB300:CLS:G0SUB999:PRINT:PRINT 
"QUI SE MATERIALISERA AINSI "; 

795 PRINT"("CHRt(131)C$C*CHR«(132)"). 
":60SUB950:GOSUB1710 
800 PRINT"SI VOUS ETES A MOINS DE 3 C 
ASES DE LA":GOSUB 950 
805 PRINT"PIECE OU EST ENFERMEE.LA"CH 
R$(128)"PRINCESSE"CHR*(132)",":G0SUB95 
O 

810 PRINT-VOUS REVEILLEREZ LE"CHR$(12 
9)"Dr AGON"CHR$(132); :G0SUB1210 
815 PRINT"QUI SE";G0SUB950:PRINT"METT 
RA ALORS A VOTRE POURSUITE EN":GOSUB95 
O 

820 PRINT"SAUTANT D'UNE SEULE CASE A 
LA FOIS." 

825 GOSUB 950:GOSUB 1410:GOSUB 300 
830 FOR F=1 TO 7:GOSUB 950;NEXT 
840 FOR F=1 TO 2:PRINT CHR$(138)" 
BONNE CHANCE !" 

850 POKE 49080,18:NEXT 

860 FOR F=1 TO 5:GOSUB 950:NEXT:GOSUB 
300 

870 DOKE PL,48000+40*K:DOKE #278,4808 
0:P0KE NL,27:DOKE #27C,1040 
880 GOTO 2000 

898 REM 

899 REM 

900 REM - 

901 REM ! VEUILLEZ PATIENTER S.V.P : 

902 REM - 

903 REM 

904 REM 

905 A*=" VEUILLEZ PATIENTER S.V.P 

II 

910 FOR L=0 TO 1 : PLOT K+2,L+15,14:PLO 
T K+3,L+15,A$:NEXT:RETURN 

943 REM. 

944 REM 

945 REM - 

946 REM ! SCROLLING BAS D'ECRAN ! 

947 REM - 

948 REM 

949 REM 

950 DOKE 49080,#0412:PRINT:DOKE 49080 
,#0412:CALL BC;RETURN 

992 REM 

993 REM 

994 REM - 

995 REM ! BAS D'ECRAN VERT ! 

996 REM - 

997 REM 

998 REM 

999 FOR F=14 TO 27: DOKE#BBaO-i-F*40, #04 
12:NEXT:RETURN 


1000 REM 

1001 REM 

1002 REM - 

1003 REM ! DIFFERENTS SONS SPECIAUX ! 

1004 REM - 

1005 REM 

1006 REM 

1100 REM -PRINCESSE DECOUVERTE- 

1101 REM 

1102 REM 

1105 PLOT K,26,2:PLOT K+1,26," RA 

MENEZ LA PRINCESSE AVEC VOUS..." 

1 11O CALL CV: PLAY 3,O,O, O 
1120 FOR F=1000 TO lOO STEP -50 
1125 FOR S=5 TO 1 STEP -1 
1130 SOUND 1,F/S,15:SOUND 2,(F/S)*1.0 
1 , 15 

1135 WAIT 1+K 

1140 NEXT:NEXT:PLAY 0,0,0,0:CALL IV: R 
ETURN 

1198 REM 

1199 REM 

1200 REM - Dr AGON S'EVEILLE - 

1201 REM 

1202 REM 

1205 PLOT K,26,1:PLOT K>1,26," LE 

Dr AGON SE REVEILLE 

1210 CALL CV:FOR F=1 TO 1OO STEP 5 
1220 PLAY 7,2,3,lOOOO/F 

1230 SOUND 1,F*50,O:SOUND 5,1000-F,0: 
SOUND 3,1000-F*2,O:WAIT 300/F+75/F*K 
1240 NEXT:'PLAY O, O, O, O: CALL IV: RETURN 

1298 REM 

1299 REM 

1300 REM — DEPLACEMENTS DON JEAN — 

1301 REM 

1302 REM 

1310 CALLCV: PLAY1,0,1,2000: MUSIC1,0, 1 
,O: WAIT20;PLAYO,0,0,O:CALLIV:RETURN 

1345 REM 

1346 REM 

1347 REM - DEPLACEMENTS PRINCESSE — 

1348 REM 

1349 REM 

1350 CALL CV:PLAY 3,0,7,250 
1360 FOR F= 50 TO O STEP -5 
1370 SOUND 1, F, O: SOUND 2,F-t-3,0 

1380 NEXTF:PLAY0,0,O,O:CALLIV:RETURN 

1396 REM 

1397 REM 

1398 REM - Dr AGON VOUS POURSUIT — 

1399 REM 

1400 REM 

1405 PLOTK,26, 1 :PLOTK+1,26," LE D 

r AGON VOUS POURSUIT !.!.!.'." 

1410 CALLCV:FOR F=1 TO 4 

1415 PLAY 7,0,1,2000 

1420 FOR S=20 TO 400 STEP 20 

1430 SOUND 1,S,O:SOUND 2,420-S,O:NEXT 

S:WAIT l-t-K:NEXT F 

1440 PLAY O,O,O,O:CALL IV:RETURN 

1498 REM 

1499 REM 

1500 REM - Dr AGON ATTAQUE - 

1501 REM 

1502 REM 















LE D 




1505 PL0TK,26, 1:PLGTK+1,26, ■' LE D 

r A60N VOUS ATTAQUE !.!.!.!.!" 

. 1510 CALLCV;FOR F=1 TO.6 

^ 1515 FOR R=2 TO 1 STEP -1 

1520 FOR S=1 TO 3 

1530 PLAY 7,0,1,400:MUSIC S,R,S+R,0:N 

] EXT SrWAIT 20 +K*5:NEXT R,F 

, 154t) PLAY 0,0,0,0;CALL IV:RETURN 
\1598 REM 
\l599 REM 

-^1600 REM-PLUS DE VIES- 

1601 REM 
1602 REM 

1604 POKE 49080,1 

1605 PL0TK,26,1:PL0TK+1,26," VOUS 

ETES MORT. ADIEU !." 

V 1610 CALLCVrFOR F=128 TO 2048 STEP 64 
^ 1620 PLAY 7,O,3,F:SOUND 1,F,O:SOUND 2 
, F,O:SOUND 3,F,O;WAIT F/100+K*F/400 
1630 NEXT F 

1640 PLAY 0,0,0,0:CALL IV:RETURN 
1698 REM 
1699 REM 

1700 REM-UN MUR- 

1701 REM 
1702 REM 

1705 PL0TK,26,3:PL0TK+1,26, ■■ STOP 

! ICI IL Y A UN MUR !." 

1710 CALLCV:FOR F= 15 TO 1 STEP -1 
1720 PLAY 1,1,1,200: SOUND 4, 1OOO, O : WA 
IT F+K*F/4:NEXT 

1740 PLAY 0,0,0,0:CALL IVrRETURN 
1798 REM 
1799 REM 

1800 REM-Dr AGON- 

1801 REM 
1802 REM 

1805 PLOT K,26,1:PLOT K+1,26," LE Dr 
AGON S'ENFUIT AVEC LA PRINCESSE" 

1810 CALLCV:F0RN=12T01STEP -1:F0R 0=2 
TOOSTEP -1:PLAY7,0,1,N*10 
1820 MUSIC 1,0,N,O:SOUND 2,N*100,6:SO 
UND 3, N-*H01,6: WAIT 0+K*2:NEXT O, N 
1830 PLAY 0,0,0,0:CALL IV 
1840 RETURN 
1898 REM 
1899 REM 

1900 REM-DON JEAN- 

1901 REM 
1902 REM 

1905 PLOT K,26,5:PLOT K+1,26,“VOUS ET 
ES A L'ABRI DANS LA CITADELLE.." 

1910 CALL CV:FOR N=1 TO 12:FOR 0=3 TO 
5:PLAY 7,0,2,N*10 

1920 MUSIC 1,0,N,N:S0UND 2,N*100,N:S0 
UND 3,N*101,N:WAIT 0+K:NEXT O,N 
1930 PLAY O,O,O,O:CALL IV 
1940 RETURN 
1993 REM 
1994 REM 

1995 REM - 

1996 REM ! DESSIN DE LA GRILLE-JEU ! 

1997 REM - 

1998 REM 
1999 REM 

2000 ZAP:CALLIV:LQRESO:POKEP,16:F0RF= 


1T038STEP2:DOKEP+F,#1313+#303*(F < 7) 

2010 NEXT : POKEP+39,19:F0RF=0T023STEP3 
: F0RL=0T01;PLOTK+6,F+L,PR*(14):NEXT 
2020 PLOT K+6,F+2,PR*(15):NEXT:PLOT K 
+6, 23,PR*(16) 

2040 FOR F=1 TO 7 STEP 3:EC=48002+F*4 
O;PA=21:CH=101;G0SUB 410:NEXT F 
2050 EC=48402:PA=20:CH=105:G0SUB 410 
2060 EC=4B522:PA=18:CH=109:G0SUB 410 
2065 EC=48642:PA=17:CH= 97:G0SUB 410 

2068 REM 

2069 REM 

2070 REM - 

2071 REM ! EMPLACEMENT CITADELLE ! 

2072 REM - 

2073 REM 

2074 REM 

2075 R*=" CRETURN3 POUR VALIDER CE CH 
DIX " 

2080 A*=". 


R*=" CRETURN3 POUR VALIDER CE CH 


2090 A*=A*+" A L'AIDE DES TOUCHES FL 
ECHEES, PLACEZ VOTRE CITADELLE OU" 

2100 A*=A*+'' VOUS VOULEZ PUIS APPUYEZ 
SUR"+R* 

2110 A*=A*+". 

.":CALL CV:POKE 49080,6 

2120 FOR F=1 TO LEN(A*)-39:B*=MID*(A* 
,F,39);PL0T K,26,B*:CALL BT:WAIT 7 
2130 IF PEEK(#208)=56 THEN NEXT F:GOT 
O 2120 

2140 DOKE 49080,#C06: PLOT K+1,26," 
”+R* 

2150 EF=48402:G0SUB 400:SHOOT:XT=20:Y 
T=10:G0SUB 2200 

2160 CALL CV:WAIT10:CL=PEEK(#208):IFC 
L=1560RCL=1720RCL=1800RCL=188THEN2180 
2170 IF CL=175 THEN 2210 ELSE 2160 
2180 CALLIV:EF=PT:G0SUB400:XT=XT-4*(C 
L=188 AND XT<33)+4*<CL=172 AND XT>11) 
2190 YT=YT-3*(CL=180 AND YT<20)+3*(CL 
=156 AND YT>3) 

2195 GOSUB 2200:GOTO 2160 
2200 PT=P+XT+YT*40:GOSUB 450:CALL BC: 
RETURN - 

2203 REM 

2204 REM 


2206 REM ! CHOIX CHAMBRE SECRETE ! 

2207 REM - 

2208 REM 

2209 REM 

2210 ZAP:EF=48642:G0SUB400:ZAP:EF=485 
22:G0SUB400:GOSUB1800 

2215 CALL BR 

2220 X=INT(RND(1)*8+1):Y=INT(RND(1)*8 
+1):XC=XV(X):YC=YV(Y):PC=P+XC+YC*40 

2225 DS=0:C0=20:Z=3:GOSUB 420:Z=2:IF 
DS=1 THEN 2220 

2226 REM 

2227 REM ✓ 

2230 REM--- ^ 

2232 REM ! INITIALISATION JEU \ ÇV 

2236 REM 
2238 REM 
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2250 PD=PC:XD=XC:YD=YC:PM=0 
2260 VI=4:CALL #465:HA=I NT(RND(1)* 1 O) 
;FP=0:DS=0:SC=0:F0R I=lTaLEN(LA*(HA)) 
2263 D*=MID*(LA*(HA),1,1):D=ASC(D*)-4 
O;P0KE#402+I,D:NEXT 
2265 REN 
2270 REM 

2275 REM ********♦**•!«■****■»• 

2280 REM * * 

2285 REM * ... JEU ... * 

2290 REM * * 

2295 REM *****•»***■»•■»(•**■»■*** 

2300 REM 
2400 REM 

2410 REM-VIES=VIES-1- 

2420 REM 
2430 REM 

2500 VI=VI-1:IF VI<1 THEN 7000 
2505 PJ=PT;XJ=XT:YJ=YT:GOSUB 2510:GOT 
ü 2520 

2510 EF=48002+(V 1*3-2) *40: 6(DSUB 400: R 
ETURN 

2520 GOSUB 460:GOSUB 1900 
2590 REM 
2600 REM 

2700 REM-BOUCLE JEU- 

2800 REM 
2810 REM 
2900 NC=VI*2+2+1 
2950 REM 

3000 SC=SC+1:NC=NC-1:IFNC=0 THEN 5000 
3005 GOSUB 450 

3010 POKE 49080,2:NC*=RIGHT*(STR*(NC) 

,2-K) 

3015 REM 

3016 REM 

3017 REM- SENS - 

3018 REM 

3019 REM 

3020 CALL CV:PLOT K,26,NC*+" COUP(S) 

A JOUER .. (TOUCHES FLECHEES)" 

3030 CL=PEEK(#208):SE=0 

3040 SE=-1*(CL=156 AND YJ>3) -2*(CL=1 
72 AND XJ>11) 

3050 SE=SE-3*(CL=180 AND YJ<20)-4*(GL 
=188 AND XJ<33) 

3055 PLOT K,26," 

tl 

3060 IF SE=0 THEN 3020 
3065 CALL IV 

3070 ON SE GOSUB 3100,3200,3300,3400 

3071 GOTO 3500 
3073 REM 

3075 REM 

3080 REM - 

3085 REM ! TEST SI IL Y A UN MUR ! 

3090 REM --- 

3095 REM 
3097 REM 

3100 XE=XJ:YE=YJ-1:EE=-120:RETURN 
3200 YE=YJ:XE=XJ-1:EE=-4 :RETURN 

3300 XE=XJ:YE=YJ+2:EE=+120:RETURN 
3400 YE=YJ:XE=XJ+3:EE=+4 :RETURN 

3500 PE=P+XE+YE*40 

3510 P0KE#401,XE:P0KE#402,YE:CALL#470 


3520 IFPEEK(#400)=1THEN4000ELSE4300 
3800 REM 
3900 REM 

3910 REM - 

3920 REM : STOP, IL Y A UN MUR ! 

3930 REM - 

3940 REM 
3950 REM 
4000 REM 

4010 IF XE/2=INT(XE/2) THEN 4100 

4020 FOR Y=YE-1 Tü YE+2 

4030 POKE P+XE+Y*40,19 

4040 NEXT Y 

4050 GOTO 4125 

4100 FOR X=XE-1 TO XE+3 

4110 POKE P+X+YE*40,19 

4120 NEXT X 

4125 NC=1:GOSUB 1700:GOTO 3000 
4210 REM 
4220 REM 

4230 REM - 

424'J REM ! TEST NI le Pos.DON JEAN ! 

4250 REM - 

4260 REM 
4270 REM 

4300 CALL IV;PE=PJ+EE:TE=0 
4305 TE=TE-1* (PEOPD AND PE=PC) 

4310 TE=TE-2* (PEOPD AND PEOPC) 

4315 TE=TE-3*(PE=PD AND FP=0) 

4320 TE=TE-4*(PE=PD AND FP>1) 

4330 ON TE GOTO 4400,4500,4600,4700 
4350 REM 
4360 REM 

4370 REM - PRINCESSE DECOUVERTE - 

4380 REM 
4390 REM 

4400 GOSUB 4401 :NC=NC+(NC-4)* (NC>4): G 
OTO 4500 

4401 FF-FP+1 

4402 IF VI=1 THEN RETURN 

4403 VI=VI-1:GOSUB 2510:GOTO 4402 
4405 REM 

4410 REM 

4420 REM- R . A . S - 

4430 REM 
4440 REM 

4500 GOSUB 450:EF=PJ;G0SUB400 

4501 XJ=XJ-4*(SE=4)+4*(SE=2) 

4502 YJ=YJ-3*(SE=3)+3*(SE=1) 

4503 IF FP>0 THEN FP=FP+1 

4504 IF PE=PT AND FP>1 THEN 6000 

4505 PJ=PE:GOSUB 460:G0SUB 470:IF FP= 
2 THEN GOSUB 11OO 

4506 IF DS:>0 OR PJ=PT THEN 3000 

4507 GOSUB 450:C0=21:GOSUB 420:IF DS= 
1 THEN GOSUB 5080 

4508 GOTO 3000 

4509 REM 

4510 REM 

4520 REM - UNE VIE EN MOINS - 

4530 REM 
4540 REM 

4600 EF=PJ:GOSUB400:EC=PE:PA=17;CH=97 
:G0SUB410:IF VI<2 THEN 70';>0 

4601 GOSUB 1500 

4602 IF DS=0 THEN VI=VI-1 :GOSUB 2510 
















jeu 


4603 DS=DS+1:IF DS=1 THEN DS=DB+1 
4605 EF=PD:GOSUB 400:GOTO 2500 
4607 REM 
4610 REM 

4620 REM - PRINCESSE MORTE - 

4630 REM 
4640 REM 

4700 P0KE49080,1:PL0T K+1,26," LA 

PRINCESSE EST MORTE 

4701 EF=PJ:GOSUB 400 

4702 EC=PE:PA=17:CH=97:G0SUB 410 

4703 CALLCV:FORF=1OTO1STEP-1 : SHOOT: WA 
IT F:NEXT:EXPLODE:WAIT 50:CALL IV 

4705 PLOT K+1,26," VOUS NE POUVEZ 

LUI SURVIVRE î_" 

4710 PM=l:GOTO 7000 
4970 REM 
4980 REM 

4990 REM - 

4991 REM ! DR AGON JOUE ! 

4992 REM - 

4993 REM 

4994 REM 
5000 REM 

5010 IF (DS>1 AND PJOPT) THEN 5100 
5015 IF <DB>1 AND PJ= PT) THEN 5105 
5020 IF DS>0 THEN 5170 

5025 C0=21:G0SUB 420:IF DS=0THEN 5170 


4991 REM ! DR AGON JOUE ! 

4992 REM - 

4993 REM 

4994 REM 
5000 REM 

5010 IF (DS>1 AND PJOPT) THEN 5100 
5015 IF <DS>1 AND PJ= PT) THEN 5105 
5020 IF DS>0 THEN 5170 

5025 C0=21:G0SUB 420:IF DS=0THEN 5170 
5030 REM 
5040 REM 

5050 REM - Dr AGON S'EVEILLE - 


5050 REM - 

5060 REM 
5070 REM 
5075 GOSUB 508 
E 3000 

5080 GOSUB1200 
5085 REM 
5090 REM 


GOSUB 5080:IF NC=0 THEN 2900 ELS ' 


DS=DS+1 :RETURN 


5095 REM — Dr AGON VOUS POURSUIT 

5096 REM 

5097 REM 
5100 GOSUB 1400 
5105 XX=XJ:YY=YJ:IF PJ=PT 

YY=YC 

5110 XE=XD+4*(XD>XX)-4*<XI 
5120 YE=YD+3* (YD;>YY)-3# <YI 
5130 PE=P+XE+YE*40:IF PE=F 
5140 PD=PE;XD=XE:YD=YE 
5150 IF PE=PJ AND FP=0 THE 
5160 IF PE=PJ AND FP>=1 TE 


THEN XX=XC: 


5110 XE=XD+4*(XD>XX)-4* <XD<XX) 

5120 YE=YD+3* (YD;>YY) -3# < YDCYY) 

5130 PE=P+XE+YE*40:IF PE=PT THEN 2900 
5140 PD=PE;XD=XE:YD=YE 
5150 IF PE=PJ AND FP=0 THEN 4600 
5160 IF PE=PJ AND FP>=1 THEN 4700 
5170 GOTO 3900 

5993 REM 

5994 REM 

5995 REM - 

5996 REM ! GAGNE ! 

5997 REM - 

5998 REM 

5999 REM 

6000 P0KE49080,2:PLOTK+1,26," BR A 

VO,VOUS GAGNEZ EN"+STR$(SC)+" COUPS_ 

II 

f 

6010 PJ=PT:GOSUB 460:GOSUB 470 
6030 EF=PT:GOSUB 400 
6040 EF=PD:GOSUB 400 

6050 PLOT K+17,O,G$(1): PLOT K+26,O,G* 
( 1 ) 


6060 

( 2 ) 

6070 

(3) 
6080 

(4) 
6090 
6100 
6110 
6120 
6130 
6140 


PLOT K+16,1,G*(2): PLOT K+25,1,G* 
PLOT K+15,2,G$(3):PLOT K+24,2,G* 


PLOT K+14,3,G^(4):PLOT 


6090 PLOT K+13,4,G*(5) 

6100 PLOT K+12,5,G$(6) 

6110 PLOT K+11,6,G$(7) 

6120 PLOT K+11,7,G*(8) 

6130 PLOT K+12,8,G$(9) ■ 

6140 PLOT K+13,9,G*(10) I 
6150 PLOT K+14,10,G*(11)l 
6160 PLOT K+15,11,G*<12)1 
6170 PLOT K+16,12,G$(13) 1 
6180 PLOT K+17,13,G$(14)| , 
6190 PLOT K+18,14, G*(15) I ' 
6200 PLOT K+19, 15,G*(16) ' 
6210 PLOT K+19, 16, G$ ( 17)'- 
6220 PLOT K+20,17,G*<18) 
6230 PLOT K+20,18,G*<19) 
6240 PLOT K+21,19,G*(20) 
6250 PLOT K+21,20,G$(21) 
6260 PLOT K.+22,21,17 
6270 PLOT K+22,22,17 
6280 CALL CV:PLAY 7,O,O,O 
6290 FOR F= 600 TO O STEP 
6300 


ill 



PLOT 

PLOT 

PLOT 

PLOT 

PLOT 


PLOT 

PLOT 

PLOT 



6300 SOUND 1, F,15:SOUND 2,F*1.1,15:SO 
UND 3, F*1.3-, 15 
6310 NEXT F:CALL IV 
6320 GOTO 8000 

6993 REM 

6994 REM 

6995 REM - 

6996 REM ! PERDU ! 

6997 REM - 

6998 REM 

6999 REM 

7000 IF PM=1 THEN GOSUB 1610 ELSE GOS 
UB 1600 

7001 CALLCV:PLAY7,0,4,200: MUSIC1,2, 1, 
O: MUSIC2,2,4,O: MUSIC3,2,7,O;CALLIV 

7005 PA=17:CH=97 
7010 FOR Y=1 TO 22 STEP 3 
7020 FOR X=8 TO 36 STEP 4 
7030 EC=P+X+Y»40:GOSUB410 
7040 NEXT X,Y 

7993 REM 

7994 REM 

7995 REM - 

7996 REM ! VOULEZ-VOUS REJOUER ? ! 

7997 REM - 

7998 REM 

7999 REM 

8000 PLOTK+6,26,"VOULEZ-VOUS REJOUER 
(O/N) ? ? •? ?" 

8010 RESTOREjCALL CV:F0R IN=1 TO 43:R 
EAD 01,NI,02,N2,03,N3,W 
8020 IF PEEK (#203) 0 56 THEN 8100 
8030 PLAY3,O,O,O: MUS1C1,01,N1, 15;MUSI 
C2,02,N2,15;MUSIC3,03,N3,15;WAIT W 
8040 I = INT(RND(1)*7)+1 : INK I 


3,F*1. 


6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 


VOULEZ-VOUS REJOUER 


PLOTK+6,26,"VOULEZ-VOUS REJOUER 


PLAY 


NEXT 


8060 GOTO 8010 

8100 GET A$:IF AÆ<>"D" 

8110 CALL IV;GOTO 2000i 


THEN STOP 
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Illustrations : Jean-Luc AULNETTE 














LCAT/K7 

André GUICHARDON 


C e court programme en langage machine est une adaptation de la 
lecture de catalogue cassette parue dans un ancien numéro de 
THEORIC. Nous le reproduisons ici, en version améiiorée, pour 
nos nouveaux lecteurs. 


L'amélioration concerne la possibili¬ 
té de sortir le catalogue sur impri¬ 
mante, en plus de l'affichage sur 
écran. De plus, les adresses de dé¬ 
but et fin de programme sont don¬ 
nées en hexadécimal. 

Pour initialiser la vitesse de lecture, 
on peut faire un CLOAD " " ou 
CLOAD " ",S suivi d'un RESET ou 
encore un CSAVE "A" ou CSAVE 
"A",S sans enregistrer réellement, 
ou encore POKE #24D, 0 (rapide) 
etPOKE#24D, 1 (lent). 

On sortira de ce programme par ap¬ 
pui sur RESET. Enfin, POKE 
#1OCD, 60 annulera la sortie sur im¬ 


primante. 

N'oubliez pas de brancher l'impri¬ 
mante ! 

Les plus curieux trouveront quel¬ 
ques explications en analysant le lis¬ 
ting désassemblé. 

# 1000/1010 

Initialisation et affichage des sous- 
titres de présentation. 

#1010/1046 

Lecture du titre du programme 
#1049/1040 
Affichage du titre 
#1053/1058 

Affichage en hexa de l'adresse de 


début. 

Affichage en hexa de l'adresse de 
fin 

#1071/1084 

Affiche le type de programme 
#1087 

Appel du s/p d'impression de la li¬ 
gne 

#108A/108D 

Saut à la ligne. Retour au début 
#1091/1008 

Programme de conversion et d'affi¬ 
chage en hexa. 

#10OD/10DE 

programme de copie de la ligne sur 
laquelle se trouve le curseur. 


1 0 ; REM 1111 * * t :f: 1111 11. * *: 1111 


20 :REM * * 

30 ;REM * LCAT/K7 t 

40 :REM * par t 

50 ; REM André Guichardon 

60 :REM t % 


7 0 : REM t tt 111 * 1.1.1.1. i: 111. * i. 11 * * 

80 :REM 

90 : REM Ce programme sort sur écran ou sur écran et imprimante le catalogue 

100 : REM des programmes présents sur la cassette avec les adresses de début 

110 ; REM et de fin en hexadécimal 

120 : REM Faire POKE #1OCC,#60 pour annuler la sortie sur l'imprimante 

130 :FOR A=#1000 TO #1137:READ B :POKE A,B :NEXT;CALL #1000 

140 :DATA #AD,#6A,#2,#29,#FE,#8D,#6A,#2 

150 IDATA #20,#CE,#CC,#20,#2,#CC,#A9,#E0 

160 :DATA #A0,#10,#20,#B0,#CC,#20,#CC,#10 

170 IDATA #20,#F0,#CB,#20,#CC,#10,#20,#6A 

180 :DATA #E7,#20,#35,#E7,#20,#C9,#E6,#C9 

190 :DATA #24,#D0,#F9,#A0,#0,#A2,#9,#20 

200 ;DATA #C9 ,#E6,#9D.# 1 0 , # 1 1 .#08,#CA,#D0 


clavidactisof: .is 

I 

DIT..?D’AC!i3of| 

MATH-SAMi2oFi 

MUSIRAMAi4of|i95f 

LISSAGES izofI 

MEPHISTO iooF I i55f| 

CITEde I 

CRISTAL i5of1 


ECHECS 
ELEPHORM i3oF 
DAMAE looF 
OUTIMATIC i2oF 
SYSTEM'ANIM.i4of 
DIALOGUEi2of 


LUDICO I50F 

METHO LOTO i4of 
D.A.O. i6oF 



Pour plus de détails sur nos logiciels, 
nos matériels, connaître l’adresse 
de nos dépositaires... 

SERVEUR MINITEL: 75.40.48.44 
de 18li à 9h et les week-end , 
ou notre catalogue 
complet, contre 
2 timbres à 

LOGICIELS, \ 2,20 F 

MICRO-INFORMATIQUE 
et 

PERI-INFORMATIQUE 


BATMOS 


BTELESTRAT 



80, rue des fourniers 07 500 GUILHERAND -— 


□ disquette TELESTRAT 
Nom_ 


_ □ cas. ATMOS 

_ Adresse 


_ règlement à la commande, port 15 F 
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Prénom 















































210 

DATA 

220 

DATA 

230 

DATA 

240 

DATA 

250 

DATA 

260 

DATA 

270 

DATA 

280 

DATA 

290 

DATA 

300 

DATA 

310 

DATA 

320 

DATA 

330 

DATA 

340 

DATA 

350 

DATA 

360 

DATA 

370 

DATA 

380 

DATA 

390 

DATA 

400 

DATA 

410 

DATA 

420 

DATA 

430 

DATA 

440 

DATA 

450 

DATA 

460 

DATA 

470 

DATA 

480 

DATA 

490 

DATA 

500 

DATA 

510 

DATA 

520 

DATA 

530 

END 


#F6,#A2,#0,#20,#C9,#E6,#48,#9D 


#20,#11,#EB,#68,#D0,#F5,#20,#3D 
#E9,#A9,#20,#A0,#11,#20,#B0,#CC 
#A9,#13,#8D,#69,#2,#AD,#12,#1 1 
#AE,#13,#11,#20,#91,#10,#A9,#IB 
#80,#69,#2,#AD,#14,#11,#AE,#15 
#11,#20,#91,#10,#A9,#24,#8D,#69 
#2,#A2,#42,#AD,#17,#11,#18,#A 
#B0,#5,#A,#B0,#5,#F0,#5,#E8 
#D0,#2,#E8,#Ea,#20,#7C,#F7,#20 
#CC,#10,#20.#F0,#CB,#4C,#1E,#10 
#EA,#BE,#21,#2,#A0,#2,#AA,#29 
#F,#20,#C2,#10,#48,#8A,#4A,#4A 
#4A,#4A,#20,#C2,#10,#48,#88,#C0 
#0,#F0,#6,#AD,#21,#2,#4C,#96 
#10,#A9,#23,#20,#D9,#CC,#A2,#0 
#68,#20,#D9,#CC,#E8,#E0,#4,#D0 
#F7,#60,#18,#C9,#A,#90,#2,#69 
#6,#69,#30,#60,#EA,#A0,#2,#B1 
#12,#20,#C1,#F5,#C8,#C0,#28,#D0 
#F6,#A9,#A,#20,#C1,#F5,#60,#EA 
#20,#20,#20,#54,#69,#74,#72,#65 
#73,#20,#20,#20,#20,#20,#20,#20 
#20,#44,#65,#62,#75,#74,#20,#20 
#20,#20,#46,#69,#6E,#20,#20,#20 
#54,#79,#70,#65,#73,#0,#0,#0 
#0,#0,#0,#0,#0,#0,#0,#0 
#0,#0,#0,#0,#0,#0,#0.#0 
#0,#0,#0,#0,#0,#0,#0,#0 
#0,#0,#0,#0,#0,#0,#0,#0 
#0,#0,#0,#0,#0,#0,#0,#0 
#0,#0,#0,#0,#0,#0,#0,#0 



I1000-IODE 






105B 

20 

91 

10 

JSR 

« 1091 

1 0A6 

88 




DEY 



1000 

AD 

6A 

02 

LDA 

»026A 


105E 

A9 

IB 


LDA 

»« IB 

1 0A7 

CO 

00 



CPY 

#«00 


1003 

29 

FE 


AND 

#»FE 


1060 

8D 

69 

02 

STA 

«0269 

1 0A9 

FO 

06 



BEQ 

« 1 OBI 


1005 

BD 

6A 

02 

STA 

«026A 


1063 

AD 

1 4 

1 1 

LDA 

«1114 

lOAB 

AD 

21 

02 


LDA 

«0221 


1 OOS 

20 

CE 

CC 

JSR 

»CCCE 


1066 

AE 

15 

1 1 

LDX 

« 1 1 1 5 

lOAE 

4C 

96 

1 0 


JMP 

« 1 096 


lOOB 

20 

02 

CC 

JSR 

«CC02 


1069 

20 

91 

10 

JSR 

«1091 

1 OBI 

A9 

23 



LDA 

# « 23 


lûOE 

A9 

EO 


LDA 

#»E0 


1 06C 

A9 

24 


LDA 

#«24 

1 0B3 

20 

D9 

CC 


JSR 

«CCD9 


1010 

AO 

1 0 


LDY 

#» 10 


1 06E 

BD 

69 

02 

STA 

«0269 

10B6 

A2 

00 



LDX 

#«00 


1012 

20 

BO 

CC 

JSR 

$CCBO 


1 07 1 

A2 

42 


LDX 

#«42 

10B8 

68 




PLA 



1015 

20 

CC 

10 

JSR 

» 1 OCC 


1073 

AD 

17 

1 1 

LDA 

♦ 1 1 17 

1 0B9 

20 

D9 

CC 


JSR 

«CCD9 


1018 

20 

FO 

CB 

JSR 

$CBFO 


1076 

1 8 



CLC 


1 OBC 

E8 




INX 



lOlB 

20 

CC 

1 0 

JER 

» lOCC 


1077 

OA 



ASL 


1 OBD 

EO 

04 



CPX 

# «04 


lOlE 

20 

6A 

E7 

JSR 

tE76A 


1078 

BO 

05 


BCS 

« 107F 

1 OBF 

DO 

F7 



BNE 

« 10B8 


1021 

20 

35 

E7 

JSR 

«E735 


107A 

OA 



ASL 


1 OCl 

60 




RTS 



1024 

20 

C9 

E6 

JSR 

$E6C9 


107B 

BO 

05 


BCS 

« 1 082 

1 0C2 

1 8 




CLC 



1027 

C9 

24 


CMP 

#t24 


107D 

FO 

05 


BEQ 

t 1 084 

10C3 

C9 

OA 



CMP 

#«0A 


1029 

DO 

F9 


BNE 

i 1 024 


1 07F 

E8 



INX 


1 0C5 

90 

02 



BCC 

« 1 0C9 


1Û2B 

AO 

00 


LDY 

#«00 


1080 

DO 

02 


BNE 

«1084 

10C7 

69 

06 



ADC 

#«06 


102D 

A 2 

09 


LDX 

#«09 


1082 

EB 



INX 


10C9 

69 

30 



ADC 

#«30 


102F 

20 

C9 

E6 

JSR 

«E6C9 


1083 

EB 



I NX 


lOCB 

60 




RTS 



1032 

9D 

10 

1 1 

STA 

« 1 1 10 

X 

1 084 

20 

7C 

F7 

JSR 

♦ F77C 

1 OCC 

EA 




NOP 



1035 

C8 



INY 



1087 

20 

CC 

10 

JSR 

« lOCC 

lOCD 

AO 

02 



LDY 

#«02 


1 036 

CA 



DEX 



1 OSA 

20 

FO 

CB 

JSR 

«CBFO 

1 OCF 

B1 

12 



LDA 

(«12) 

, Y 

1037 

DO 

F6 


BNE 

«102F 








lODl 

20 

Cl 

F5 


JSR 

«F5C1 


1039 

A2 

00 


LDX 

#«00 


1 08D 

4C 

lE 

10 

JMP 

«lOlE 

1 0D4 

C8 




INY 



103B 

20 

C9 

E6 

JSR 

«E6C9 


1 090 

EA 



NOP 


10D5 

CO 

28 



CPY 

#«28 


103E 

48 



PHA 



1091 

8E 

21 

02 

STX 

«0221 

10D7 

DO 

F6 



BNE 

« 1 OCF 


103F 

9D 

20 

1 1 

STA 

« 1 120 

X 

1 094 

AO 

02 


LDY 

#«Ü2 

10D9 

A9 

OA 



LDA 

#«0A 


1042 

E8 



INX 



1096 

AA 



TAX 


lODB 

20 

Cl 

F5 


JSR 

«F5C1 


1043 

68 



PLA 



1 097 

29 

OF 


AND 

#«0F 

IODE 

60 




RTS 



1044 

DO 

F5 


BNE 

«103B 


1099 

20 

C2 

10 

JSR 

« 10C2 









1046 

20 

3D 

E9 

JSR 

«E93D 


109C 

48 



PHA 










1049 

A9 

20 


LDA 

#«20 


109D 

SA 



TXA 










104B 

AO 

1 1 


LDY 

#«11 


109E 

4A 



LSR 


01OEO-1137 







104D 

20 

BO 

CC 

JSR 

«CCBO 


109F 

4A 



LSR 


1 OEO 

: 20 20 

20 

54 

69 

74 

72 65 

Titre 

1050 

A9 

13 


LDA 

#«13 


lOAO 

4A 



LSR 


10E8 

: 73 20 

20 

20 

20 

20 

20 20 

s 

1052 

SD 

69 

02 

STA 

«0269 


lOAl 

4A 



LSR 


1 OFO 

: 20 44 

65 

62 

75 

74 

20 20 

Début 

1055 

AD 

12 

1 1 

LDA 

« 11 12 


10A2 

20 

C2 

1 0 

JSR 

« 1 0C2 

10F8 

: 20 20 

46 

69 

6E 

20 

20 20 

Fin 

1058 

AE 

13 

1 l 

LDX 

« 1 1 13 


10A5 

48 



PHA 


1 100 

; 54 79 

70 

65 

73 

00 

00 00 

Types... 
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QVC : 

80 colonnes 
à votre disposition 


Stéphane REHEL 

T ravailler en 80 colonnes, malgré un écran limité à 40, est pos¬ 
sible grâce à une fenêtre qui se déplace sur le texte. Il fallait 
y penser et l'expérience encore jeune de Stéphane (14 ans) a 
permis de réaliser QVC dont les résultats sont surprenants. 


Le programme a été entièrement duisons ici, a été composé et édité 
écrit en langage machine, rangé au moyen de QVC. 

; des lignes DATA. Il est prévu Le texte est stocké en mémoire en- 

-- .... AXK/inC ira 44 .^AAA r\4 44 OCTIT^ 


au 


dans des lignes data. Il est prevu Le texte est stocke en mémoire en- 
pour fonctionner avec un ATMOS tre les adresses # 4000 et # 8FFF. soins 

et un MICRODISC sous SEDO- L’exploitation du programme en lan- 
RiC. 


gage machine est effectuée ai 
moyen de quelques lignes de BA 
SIC que chacun adaptera à ses be 

ÇAÎnQ 


i 


texte de 90 colonnes et 

de 119 #A800 a «»ADBF. éditer le texte 

gramme en LM ^ rqements. . que l'on peut ed 

^T:rtTresque^urtraltement de textes, du ta q 

3ur imprimante. ^.^^^iture du texte, accessibles par CTRL: 

Certaines commandes TaciH en inverse. Quand 1 

- CTRL E: Une étoile en ^aut _ a ^Sauche^est ^n^^^ pnnvez^a^^Oanqer en vi-', 

elle est normale, cela sig ^^^£.rURN°pour passer a la Usne sui 

curseur de— vous-meme RETUR ^ 

1 U,.. O. .——1 

nue... «CHOU. 

, " ... la ligne du curseur. 

I _ CRTL D: centre le titre situe su ,,,ne)situe apres le curseur^ 

' ^CTRLQ:Bameneadroiteleblocdete. ^ 

'| Ex: <* le curseur) ^ 

Toto+ peche. 1 

1 Appuyez sur CTRL et Q 1 

1 1 
1 — > Résultat: | 

î Toto+peche. 1 

i , .O CTRL Q mais a gauche 

I - CTRL W: Pareil que C 

' ^/clavier silencieux 

1 _ etRL X: Bascule clavier sonor^^ i. 

' -c^u^seu:: rr-a^ce^ra Tiln: To ... ^ i. 

- :re::aceTa ÎS: r:e1rrve le curseur, 

curseur, et e ^ ^ 


CTRL AS — liane OU se -- 

:urseur, et eTTace la HSne ^ , 

le texte sur imprimante. 

-nfen"a°êcrre'ru si une touche est pressee. 

_ P: BTTace le texte en mémoire 

: permet de sauver ou charger un texte. 

les SHIFT pour les majuscules. 

_ On écrit en minuscules. 




3 B0SUB7.^ .^NTlLft • ^^...PBINT" „,Jr.-OUBLIEE EL 

^ u=L^i--f'''' «ha800,e»ad®P/^^*dthenpbi»^^ 

' sgl$|ig||i||||||i 

''. lsï|ïs5^5lî%sS%SSg 

1' 

V »li»iii* 

Vtl«^» 

• ' « ”o^p ;ruÆS;-.;roôÆ^ 

tii««i 

• ' s 

• \ 55 DAT^ 20 ,e 0 ,AB,AC,F o^ftA,AC,y Q <,c,AC,y ftC,AC,3 

\ 56 OAtA ^ 00,00,06,^ 00,06,^ ’ no, 06,^'^’ ^ 00,06,^ 

57 DATA -P p5,AB5C‘^» _ AP FSï^^’^^’ap 

• \ sa DATA f,6* 20*8 ®’^^’oa’ 20,E0»AC, ’ go, AD, * g ^9,3E1 

^\ 60 DATA F l 30,AD,^C,F'S’ q ftD,AC,F5, o,OE,AC,09* ^o,C9,OE’^^PB 

• ' t'a ttit 
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X 


A 4° P _ 

:: mmm 

• ' ssssmêSÊii 

89 /,5’^O. 80 û,?’ 00, 5a » Oi , £,. 

' l“Ss^iÿ5^ÿ^“ 

’■? “flr, ''l’°Pc^'X'^^-oo;S’^:l 

^'"“•oo/o^-, 


’°°’Oo,oo*^689__ 


10 !LOAD"QVC.LM" 

20 6RAB 

30 PAPERO: INK7:P0KE61B,#23 
60 CLS 

100 CALL#A800 

150 PÜKE#26A,#22 

200 CLS:CALL#E93D 

300 PRINT"1.SAUVER LE TEXTE" 

310 PRINT 

315 PRINT"2.CHARGER UN TEXTE" 

320 PRINT 

325 PRINT"3.ARRETER" 

340 GETR»: IFR*<" 1 "0RR*>"3"THEN340 

400 IFR»="1"THEN1000 

450 IFR*="2"THEN2000 

490 PaKE#26A,#23 

500 ZAP;PING:END 

600 CALL#AA73 

700 GOTO150 

1000 G0SUB8000 

1100 CALL#A808 

1200 !SAVE R*+".QVC",A#4000,EDEEK(4)+ 
»50 

1300 G0TQ600 
2000 G0SUB8000 

2100 CALL#ABDO:!LÜAD R*+".QVC" 

2200 G0T0600 

8000 PRINT:PRINTCHRS(#E)"NQM " ; 

8060 INPUTR*;IFLEN<R*)>9THENPRINTCHR* 
(#B)CHR*(#B)5 ;G0TÜ8000 
8100 RETURNB 






Eric VIEL 


Les amateurs de Langage Machine que vous êtes se sont 
sûrement demandés un jour comment i'Oric faisait pour 
stocker ies nombres à virguies. Théorie va lever pour vous le 
voile sur ce mystère qui depuis tant de nuits vous empêche 
de dormir. 


En effet, la plupart des personnes 
qui possèdent quelques notions 
en langage machine ont l'impres¬ 
sion que plus ça va, moins ça va. 
On vous a toujours dit que I'Oric ne 
pouvait représenter que des zéros 
ou des uns, alors, comment repré- 
sente-t-il les nombres à virgules ? 
Pour cela, nous devons réviser, ou 
découvrir, certaines notions, qui, 
bien que paraissant simples, sont 
fondamentales. 

Tout d'abord sachez que, effective¬ 
ment, I'Oric, comme tout autre ordi¬ 
nateur, ne travaille qu'en binaire 
(Tout le reste n'est que des 
conventions). Or, l'homme, lui, tra¬ 
vaille en base 10 (Probablement 
parce qu'il a dix doigts). Il va donc 
falloir se mettre au niveau de l'ordi¬ 


nateur et faire un peu de binaire. 
Appelé encore base deux, le bi¬ 
naire ne travaille qu'avec deux 
chiffres, le zéro (0) et le un (1). Cela 
correspond dans la machine, de 
manière abusivement simplifica¬ 
trice, au courant qui passe ou qui 
ne passe pas. Ces deux chiffres, 
comme en base dix, peuvent être 
groupés ensemble pour former des 
nombres plus importants. Ainsi, 
1101 ou 11001001 sont des nom¬ 
bres binaires. Mais comme ils sont 
exprimés en base deux, ils ne sont 
guère représentatifs pour les hom¬ 
mes. Il faut donc faire des conver¬ 
sions binaire/décimal et décimal/ 
binaire. On considère qu'un nom¬ 
bre N exprimé dans une base b est 
une suite de chiffres, notés aj (i 


Ci joint, un chèque de F à l'ordre des 

Editions SORACOM, La Haie de Pan, 351 70 
BRUZ 









Ce qui signifie en termes moins 
mathématiques, somme des ajbi, 

depuis i = O jusqu'à i = n. C'est un 
peu comme une boucle for i = O to 
n;R = R + a(i)xbTi: next. Ok ? On 
a donc pour un nombre de 3 
chiffres, comme 358 (base dix) : 

V = 3x102 + 5x10'' + 8x10° 

= 358 

ou pour un nombre binaire tel que: 

1101 V = 1 x23 + 1 x22 + 0 X 2'' + 
1x20=1x8+1x4+0x2+0x1 
= 15 " 

Et bien, si vous avez compris cela, 
vous avez compris comment passer 
du binaire au décimal. Bravo. 

Voyons maintenant le passage 
inverse. 


On a donc A^, (le b en indice 

indique la base dans laquelle est 
exprimé A), tel que : 

A = ap_■] X b''' + — + a-^b"' 

Pour tout i supérieur à zéro, le 
terme ajbi est forcément un mul¬ 
tiple de b. Ainsi donc, on peut 
mettre b en facteur. On arrive donc 
à récriture suivante : 

A = b X (an_i x b^2 +.+ g-i) 

+ ag 

D'où, lorsque nous divisons par b, 
on obtient un reste, qui est donc ag 

et un quotient. On fait alors subir au 
quotient le même traitement, puis 
avec le quotient du quotient, puis 
... jusqu'à ce que le quotient soit 
inférieur à b. 



Exemple : Convertir 35 en base 
deux. 


35 

2 17 

2 8 

2 4 

2 2 

— D'OÙ 

1 

^0 

17 1 

ai 

00 

4 £ 

^3 

2 ^ 
34 

1 (35)^ Q= (100011)2 

^5 


changeant de valeur en fonction de 
la positiorr du chiffre dans le nom¬ 
bre). N s'écrira donc : 

^b = ^n -1 ^n -2 .3i ag 

Ainsi, pour N = 358, on a ; 

ag = 8 ai = 5 et a 2 = 3 

ou pour le nombre binaire 1101, ag 
vaut 1, ai vaut 0, a 2 vaut 1 et ag 
vaut 1. Ce nombre a pour valeur en 
décimal, b étant la base dans 
laquelle il est exprimé, 


n -1 



i>0 



Pour vous entraîner à ces multiples 
conversions, nous vous donnons 
en annexe un programme de 
conversion, directement issu de 
ces explications. Si vous pensez 
les avoir entièrement assimilées, 
essayez d'écrire un tel programme. 

Mais cela ne nous dit pas comment 
coder les nombres à virgule. Eh 
bien si. En effet, rappelez-vous, 
nous avions dit que : 

358 = 3x 102 + 5x 10'' + 8x10° 

et bien 358,34 c'est : 

358,34 = 3 X 102 + 5 X 10'' + 8 x 
10°+ 3 X 10-'' + 4 X 10-2 

Dire que 10-'' est égal à 1/10'', ou 
que 10-2 est égal à 1 / 1 02 ne nuira, 
je pense, à personne. Pour 
effectuer la conversion, nous allons 
donc d'abord convertir la partie à 


gauche de la virgule, puis celle à 
droite, et enfin accoler les deux 
avec un point. Voici un exemple qui 
éclaircira vos esprits brumeux. 

358 donne en binaire 101100110 
(Cf plus haut) ; 0,34 donne en 
binaire ... suspense, ou plutôt 
détail du calcul ; 

0,34 X 2 = 0,68 0 

0,68 x 2= 1,36 1 

0,36 X 2 = 0,72 0 

0,72 X 2 = 1,44 1 

0,44 X 2 = 0,88 0 

0,88x2 = 1,76 1 

0,76x 2= 1,52 1 

0,52x2 = 1,04 1 

0,04 X 2 = 0,08 0 

0,08x2 = 0,16 0 

0,16x2 = 0,32 0 

(Effectivement, on ne divise plus 
par 2^, mais par 2-'', ce qui revient 
à multiplier par deux. La partie 
gauche de la virgule joue alors le 
rôle du reste de la division. Comme 
nous le mettions à part lors des 
divisions, nous enlevons donc au 










résultat la partie gauche de sa 
virgule). 

On peut continuer ainsi pendant 
très longtemps, le seul moyen de 
s’arrêter sans perdre dans la 
précision du calcul est de continuer 
jusqu'à trouver la valeur 00 à droite 
de la virgule, dans le résultat. Alors, 
que faire ? Simplement se résigner 
à perdre un peu de précision. Nous 
dirons donc que : 

358,34 = 

101100110.01010.111000 

Que ceux qui n'y comprennent rien 
se disent que le photocompositeur 
lui non plus n'y comprend rien, mais 
qu'il doit recopier l’article sans faire 
d’erreurs !!! (Note du photo¬ 
compositeur : Merci pour lui !) 

Alors un grand bravo au photo¬ 
compositeur. (Note du photo¬ 
compositeur : Re merci pour lui !) 
Soyons un peu plus sérieux. Si 
vous ne comprenez pas tout à fait 
cette notion, relisez les quelques 
lignes précédentes, et faites quel¬ 
ques exercices avec le programme 
de conversion qui, ô miracle de la 
technique moderne, traite aussi les 
conversions des nombres à vir¬ 
gules. Ne passez surtout pas à la 
suite sans avoir compris cette 
notion. 

Alors, maintenant que vous l'avez 
comprise, il faut qu'ORIC la 
comprenne. 

Et comme un ordinateur, c'est 
bête, il faut que vous, le program¬ 
meur intelligent (si si, vous lisez 
cette partie !), lui explique en détail. 
D'abord, il faut lui expliquer ou 
s'arrêter dans le calcul de la partie 
décimale du nombre. C'est très sim¬ 
ple. Lorsque la longueur totale du 
nombre (partie droite plus partie 
gauche) comporte 32 chiffres binai¬ 
res, et bien on s'arrête. Ce qui nous 
donne, pour 358,34... 


358,34 = 

101100110.0101011100001010 

0011110 

Mais rOric, contrairement au photo¬ 
compositeur, ne connaît pas le 
point décimal. Il faut donc modifier 
quelque peu l'apparence de ce 
nombre. On va le normaliser, afin 
que le point soit toujours au même 
endroit, qui sera la première posi¬ 
tion. Pour cela, passons en déci¬ 


mal... (Soupir de soulagement du 
photocompositeur .) 

358 peut s'écrire : 

0,358 X 1000, soit 358 x 10^ 

Et bien de même, en binaire on 
peut écrire : 

101100110.0101011100001010 
0011110 
comme étant : 

0,101100110010101110000101 
00011110 X 10''00‘' 


Poussons maintenant la réflexion 
un peu plus loin, quel que soit le 
nombre, une fois normalisé, le 
premier chiffre après la virgule est 
toujours un 1 (Si cela n'en était pas 
un, nous pourrions décaler le point 
d'une position vers la droite, et 
augmenter de un l'exposant). 

On en déduit donc que la mantisse 
(le nombre que nous obtenons 
après toutes les opérations 
expliquées ci-dessus) est comprise 
entre ; 

1 et 1/b, donc 0,5 < m.< 1 


(Note au photocompositeur : C'est 
fou ce que l'on peut s'amuser avec 
les fonctions Couper/Coller d'un 
bon traitement de texte !). 

Attention, 10^®^^ est en binaire, 

et représente deux à la puissance 
neuf, pas dix à la puissance mille 
ur>. 

Voilà, il ne reste plus qu'à écrire 
l'exposant. Et bien, nous allons 
utiliser un autre groupe de huit bits 
pour le représenter. i 


Ceci va nous permettre d'écrire le 
signe de la mantissse. En effet, le 
but de tout cet aride est de vous 
montrer comment l'Oric mémorise 
les nombres à virgule. Or, la 
mémoire de l'ORIC est, pour le 
programmeur, un ensemble d’oc¬ 
tets. Nous allons donc faire entrer la 
mantisse dans des octets. Sa 
longueur étant de 32 chiffres 
binaires, il va donc falloir utiliser 
32/8 = 4 octets pour coder la 
mantissse. Ce qui donne pour 

358,34 : 



10110011 
Hexa : B3 


00101011 

2B 


10000101 

85 


00011110 

1E 


lO CLS 

20 D$=CHR$(4) 

30 E*=CHR$(27) 

40 PRINT:PRINT" "D*E*"J CON 

VERSIONS‘'D$ 

50 PRINT:PRINT:PRINT:PRINT:PRINT:PRIN 
T:PRINT 

55 PR INT" 1. PASSAGE BINAIRE -.> DECIMA 
L" 

60 PRINT:PRINT:PRINT"2. PASSAGE DECIM 
AL -> BINAIRE" 

70 PRINT:PRINT:PRINT"3. FIN" 

80 PRINT:PRINT:PRINT:PRINT"VOTRE CHOI 
X : "; 

90 POKE 618,3 

100 GETR$:IF R*<"1" OR R$>"3" THEN PI 
NG:GOTO lOO 

11O PRINTR$ 

115 IF R*="3" THEN END 

120 ON VAL (R$) GOSUB 1000,2000 

130 PRINT:PRINT"PRESSEZ UNE TOUCHE 
. "; :GETR*:RUN 

999 END 

1000 REM - 
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Or, nous avons dit que le premier 1 
servait au signe. La convention 
veut que 0 représente positif, 1 
négatif. 358,34 est un nombre 
positif, le premier octet devient 
donc 00110011, soit 33 en hexa. Il 
ne reste plus qu'à coder l’exposant. 
Comme il s'agit par convention 
d'une puissance de 2, nous ne 
noterons pas lO"*®®"* en mémoire, 
mais simplement 1001. Les expo¬ 
sants pouvant être très grands, 
nous allons utiliser 7 éléments 
binaires pour les coder. Ainsi, 1001 
devient 0001001, les zéros de 
devant ne modifient pas la valeur 
de l'exposant. Le huitième bit 
(élément binaire) de l'octet utilisé va 
servir au signe de l'exposant. (Si un 
nombre est compris entre -1 et 1, 
son exposant est négatif). La 
convention veut que 0 soit positif, 
mais pour l’exposant, il est plus 
facile d'avoir l’exposant à un, 
commel étant positif, donc, fi des 
conventions ! Restons pratiques, 
l'exposant est 1000 1001L, soit 89 
(hexa). U’oû la représentation 
dans rOric de 358,34 comme 
étant : 

89 33 2B 85 1E 

exposant MANTISSE 

Voilà. Normalement, vous savez 
comment coder les nombres à 
virgule flottante sur Oric. Voici 
quelques constantes résidentes 
en ROM que l'Oric utilise pour ses 
calculs internes. 


1 

81 

-1/2 

80 

V2 

81 

2 

80 

Ln(2) 

80 

Ln(10) : 

82 

71 (PI) : 

82 


00 

00 

00 

00 

80 

00 

00 

00 

35 

04 

F3 

34 

35 

04 

F3 

34 

31 

72 

17 

F8 

13 

5D 

8D 

DE 

49 

OF 

DA 

9E 


Voyons maintenant comment utili¬ 
ser toutes ces connaissances pour 
Oric, c'est-à-dire quelles sont les 
adresses clef de l'Oric, pour coder 


1010 

REM 


1020 

REM CONVERSION BINAIRE DECIMAL 

1030 

REM 


1040 

REM- 

— 

1050 

CLS:R=0 


1060 

PRINT:PRINT "ENTREZ LE NOMBRE 

BI 

NAIRE. 

II 


1070 

INPUT NB$ 


1080 

PT=FALSE 


1090 

FOR 1=1 TO LEN(NB$) 


1100 

IF MID$(NB$,I,1)="." THEN N=I 

-1: 

PT=TRUE 


1110 

NEXT 


1 120 

IF NOT PT THEN N=I-1 


1130 

REM N CONTIENT LE NOMBRE DE 



DE CHIFFRES DE LA PARTIE 


1140 

REM GAUCHE DE LA VIRGULE 


1150 

REM 


1 160 

N=N-1:REM LE PREMIER CHIFFRE 

DE 


NB EST A LA PUISSANCE 

1170 

REM N-1 


1180 

FOR 1=1 TO LEN (NB$) 


1190 

DIGIT$=MID$(NB$,1,1) 


1200 

IF DIGIT*="." THEN 1300 


1210 

r=r+VAL(DIGIT*)*2^N 


1220 

N=N-1 


1300 

NEXT 


1310 

PRINT:PRINT"LE RESULTAT EST " 

;R 

1320 

RETURN 


2000 

REM- 

— 

2010 

REM 


2020 

REM CONVERSION DECIMAL BINAIRE 

2030 

REM 

1 

2040 

REM- 

— 

2050 

CLS:NB^="" 


2060 

IMAL • 

PRINT:PRINT”ENTREZ LE NOMBRE 

1 

DEC 

20.70 

INPUT SN:ND=ABS(SN) 


2080 

PE=INT(ND) 


2090 

REPEAT 


2100 

P2=INT(PE/2) 


2110 

R=PE-P2*2 


2120 

NB$=MID* (STR^ (R) , 2) -^NB« 


2130 

PE=P2 


1 2140 

UNTIL PE<2 

1 

2150 

NB$=MID$ (STR$ (PE) ,2)-^NB$ 

' 

2160 

IF ND-INT(ND)=0 THEN 2270 

; 

2200 

DE=ND-1 NT ( ND ) : NB$=NB*-^ " . " 


2210 

REPEAT 


2220 

DE=DE*2 


2230 

IF DECl THEN NB$=NB^-h"0" ELSE 

NB 

$=NB$-^"l" 


2240 

DE=DE-INT(DE) 


2250 

DE=0) 

UNTIL (LEN(NB^)>33) OR (DE=1 

OR 

2270 

$ 

2280 

PRINT"LE RESULTAT EST :":PRINTNB 

RETURNB 
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les nombres à virgule flottante. 

L'Oric dispose de 2 accumulateurs 
pour le calcul des nombres à virgule 
flottante. Nous les appelerons AQ1 
et AQ2. AQ1 est situé de #D0 à 
#D5 compris, AQ2 de #D8 à #DD 
compris. Cela fait donc 6 octets. Or, 
nous n'avons pas arrêté de vous 
dire que les nombres à virgule 
flottante tenaient en 5 octets, 
alors ? Alors le sixième octet sert à 
copier le signe de la mantisse, qui 
est mis à un pour les calculs. Seul le 
8® bit de cet octet est utilisé. 

Voyons maintenant les bonnes 
tables, euh pardon. Je confonds 
avec Gault & Millaut, voyons les 
bonnes adresses de la ROM. 

Tout d'abord, rentrer un nombre 
dans A01. Deux façons : 
la première consiste à évaluer le 
nombre en tant que caractères ; 
la seconde prend la valeur conte¬ 
nue à une adresse. 

La première façon est située en 
EFCF pour Oric 1, DFE7 pour 
ATMOS. Il faut que A contienne le 
premier caractère de la suite de 
caractères, que TXTPTR (E9-EA) 
contienne l'adresse de ce carac¬ 
tère, et que l'indicateur C = 0 si le 
premier caractère est un chiffre, 1 
sinon. 

Cela revient à mettre l'adresse de la 
chaîne de caractères constituant le 
nombre à transférer dans A01, 
dans E9-EA, puis à faire JSR$EZ et 
JSR$DFE7. 

Exemple : Si la chaîne de carac¬ 
tères est en $5000, il faut faire : 

LDA#$00 

LDY#$50 

STA$E9 

STY$EA 

JSR$EZ 

JSR$DFE7 (ORIC 1 ; EFCF) 

Seconde méthode : le nombre est 
déjà normalisé et stocké en mé¬ 
moire à l'adresse pointée par A 
(poids faible) et Y (poids fort). 

Il est gaiement possible de faire 
passer un nombre entier compris 
entre -65535 et +65535 dans A01 
grâce à la routine située en DF22 
(ORIC 1) au DF31 (Atmos). La 
valeur absolue du nombre doit être 
en #D1, #D2 et C doit être à zéro si 
le nombre est négatif, 1 s'il est 


positif. En sortie, A01 contient le 
nombre. 

Voyons maintenant comment trans¬ 
former A01 en une chaîne de ca¬ 
ractères. Un simple saut à l'adresse 
#E0D1 pour ORIC 1, #E0D5 pour 
ATMOS, et hop. Le nombre est 
converti en décimal à l'adresse 
#100. AY contient d'ailleurs cette 
adresse. Qui plus est, la chaîne est' 
terminée par une valeur Q, très 
pratique pour afficher ; 

Nombre dans AQ1 
JSR$E0D1 ATMOS : JSR$E0D5 
JSRSCBED JSRSCCBO 

(Affiche la chaîne pointée par AY et^ 


terminée par 0). 

Nous allons maintenant utiliser le 
second accumulateur, AQ2, pour 
effectuer les opérations néces¬ 
sitant 2 opérandes. Tout d'abord, H 
faut faire rentrer un nombre dans 
AQ2. Pour cela, nous allons utiliser 
la routine située en #DEES (ORIC 
1) ou #DEDD (ATMOS). Avant de 
passer aux routines arithmétiques, 
un petit conseil. Les adresses des 
routines qui vont suivre sont prises 
un peu en dérivation. Nous effec¬ 
tuons une entrée anormale dans 
l'interpréteur. Pour cela, il est 
préférable d'exécuter l'instruction 
LDASDO avant de faire le JSR de la 
routine. 



ORIC 1 

ATMOS 

OPERATION 

Addition 

DA9A 

DB25 


AQ1 + AQ2 ^ AQ1 

Soustraction 

DA83 

DBOE 


AQ2 - AQ1 ^ AQ1 

Multiplication 

DCBA 

DCFO 


AQ1 X AQ2^AQ1 

Division 

DDE3 

DDE7 


AQ2/AQ1 -+ AQ1 

LN 

DC79 

DCAF 


LN(AQI) ^ AQ1 

LOG 

DDDO 

DDDA 


LOG (AQ1) ^ AQ1 

Racine 

EZZA 

EZZE 


SQR (AQ1)->AQ1 

Puissance 

EZ34 

EZ38 


AQZTaQI ^ AQ1 

eX 

EZA6 

EZAA 


EXP(AQI) -> AQ1 

RND 

E34B 

E34F 


Génère un nombre 
aléatoire dans AQ1 

COS 

E387 

E38B 


COS (AQI)^AQI 

SIN 

E38E 

E392 


SIN (AQ1) AQ1 

TAN 

E3D7 

E3DB 


TAN (AQI)^AQI 

ATN 

E43B 

E43F 


ATN (AQ1) -> AQ1 

Note : Les fonctions trigonométriques travaillent en 

Voilà. Nous avons fait le tour des 
principales routines mathéma¬ 
tiques. Je vais maintenant vous 
donner l'adresse de quelques 
constantes bien utiles : 

ORIC 1 ATMOS VALEURS 

radians. 

nl2 : P1/2 : 

E403 E407 

81 49 

OF 

DA AZ 

27t ; 2 X PI : 

E408 E40C 

83 49 

OF 

DA AZ 

LN(10) 

DC46 DC77 

82 13 

5D 

8D DE 

LN (2) 

DC74 DCAA 

80 31 

72 

17 F8 


Voilà de quoi créer de beaux pro¬ 
grammes mathématiques en lan¬ 
gage machine. 


Si cet article a paru intéressant mais 
que certains d'entre vous sont 
restés sur leur faim (comment fait- 
on réellement pour calculer SINCX 
en langage machine), ils peuvent 


se reporter à l'excellent bouquin de 
Fabrice Broche, "L'ORIC A NU", 
paru aux Editions SORACOM 
(35170 BRUZ). Voilà. Méditez bien 
ces quelques lignes avec votre 
aspirine, et bon courage ! 

Au fait, pour SIN X, il est conseillé 
de passer par le développement 
limité. Vivent les maths !■ 
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L'INTERFACE JOYSTICK 
PROGRAMMABLE D'ORIC 


L e problème avec l'ORIC, c'est qu'il n'y a pas de prise joystick in¬ 
tégrée à l'unité centrale. Ce défaut est maintenant corrigé sur 
les TELESTRAT pour satisfaire aux besoins des utilisateurs. 
Fort heureusement, une interface est commercialisée pour les pos¬ 
sesseurs d'ATMOS... 


Depuis sa création, l'ORIC a vu pas¬ 
ser plusieurs types d'interfaces 
pour joystick ; le lecteur de THEO- 
RIC aussi, par la même occasion ! 
L'interface la plus simple était cons¬ 
tituée d'un petit boîtier, servant de 
support au connecteur joystick et in¬ 
tégrant tout simplement quelques 
diodes. Ce boîtier venait se connec¬ 
ter sur la prise imprimante... Son 
seul avantage était son faible coût 
car, hélas, il ne s'adaptait qu'à un 
tout petit nombre de jeux. 

Devant l'accueil timide réservé par 
les utilisateurs à ce produit, des in¬ 
terfaces plus sophistiquées ont été 
mises sur le marché. Leur avanta¬ 
ge ? Etre programmable, c'est-à- 
dire capable de s'adapter à bon 
nombre de logiciels (hélas, pas à 
tous) disponibles sur le marché. 

C'est une interface de ce type qui 
est proposée dans la gamme des 
périphériques commercialisés par 
ORIC International. Elle se présen¬ 
te sous la forme d'un petit boîtier 
métallique, peint aux couleurs de 
l'ORIC et dont les dimensions (85 x 
60 X 20 mm) encombreront peu vo¬ 
tre table. Ce boîtier se connecte, 
par l'intermédiaire d'un câble plat de 
10 cm, à la prise "bus extension" de 
l'ORIC. L'interface n'est donc pas 
utilisable avec un MICRODISC (ni 
un JASMIN d'ailleurs). En plus de la 
prise joystick 9 broches, très classi¬ 
que, de type "ATARI", l'utilisateur 
découvrira un inverseur servant à la 





programmation de l'interface. Cette 
phase consiste à "apprendre" à l'in¬ 
terface quelles sont les correspon¬ 
dances "touches-directions du joys¬ 
tick" relatives au logiciel. Ainsi, si 
votre jeu favori utilise la touche "A" 
pour monter, "Z" pour descendre, 
vous pourrez les remplacer par les 
directions correspondantes du joys¬ 
tick. Comment faire ? Tout simple¬ 
ment en appuyant sur la touche du 
clavier et en poussant le joystick 
dans la direction correspondante. 
On ramène le joystick au neutre et 
on relâche la touche. Ceci est fort 
simple, n'est-il pas ? (tiens, cette 
forme de phrase me dit quelque 
chose...). 

La programmation pourra avoir lieu 
avant ou après le chargement du 
jeu. La notice conseille, à juste titre, 
de l'effectuer avant de charger le 
jeu si celui-ci se lance automatique¬ 
ment. Quand toutes les directions 
auront été définies, il ne restera 
plus qu'à basculer l'inverseur en po¬ 
sition "jeu" et... à se défouler ! 

Côté hard, la réalisation est très soi¬ 
gnée, comme on peut le constater 
en ouvrant le boîtier. Circuits inté¬ 
grés et composants passifs sont 
montés sur un circuit imprimé séri¬ 
graphié, en époxy. 

Avec un investissement de 350 F, 
le joueur retrouvera l'envie d'utiliser 
sa machine, surtout s'il est friand de 
jeux d'arcades où rien ne remplace 
un bon vieux joystick! 
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SUR VOTRE DOS 

Pierre CHICOURRAT 


LE FORMATAGE 


Q uand vous l'achetez, unè disquette n'est qu'un disque magnéti¬ 
que vierge, sur lequel n'est Inscrite aucune information et qui 
n'est pas utilisable directement : il faut le formater. Prenons 
une comparaison. Considérez un livre entièrement vierge. Vous com¬ 
mencerez, dans un premier temps, (afin de l'utiliser efficacement 
et surtout pour référencer les informations que vous y inscrirez) 
par le découper en chapitres (en mettant en tête et en fin de chapitre 
des repères et en les numérotant). Puis, ces chapitres seront décou¬ 
pés en pages, contenant chacune un nombre de caractères que nous 
supposerons fixe pour simplifier. Dès lors, pour désigner une Infor¬ 
mation sur ce livre. Il vous suffira d'en donner le numéro de chapitre 
et de page pour la retrouver Immédiatement. 


Le disque non formaté est un peu 
comme ce livre. Pour l'utiliser, il faut 
le "découper" (logiquement !) en 
pistes (les chapitres) et en secteurs 
(les pages) contenant un nombre 
fixe d'octets (les caractères). Cette 
opération s'appelle le formatage. Il 
est fondamental de comprendre 
que ce découpage n'est qu'un dé¬ 
coupage logique du support. On va 
y inscrire des blocs d'octets qui 
vont indiquer au contrôleur où com¬ 
mencent et finissent chaque piste 
et chaque secteur et quel est leur 
numéro logique (c'est-à-dire le nu¬ 
méro sous lequel ils devront être 
adressés). Ce découpage peut se 
faire selon le format désiré et n'est 
limité que par la surface physique 
du disque. On pourrait, en effet, dé¬ 
couper chaque face du disque en 
80 pistes de 16 secteurs de 256 
octets, mais la surface du disque 
serait insuffisante pour y inscrire un 


tel volume d'informations et l'on per¬ 
drait en fiabilité de lecture. Le for¬ 
mat choisi par T.R.A.N. est de 41 
pistes de 17 secteurs par face, cha¬ 
cun des secteurs faisant 256 oc¬ 
tets. C'est un format qui représente 
un assez bon compromis entre le 
volume des informations stocka- 
bles (174 Ko par face environ) et la 
fiabilité de lecture. Cependant, il 
est aisé de changer ce format (on 
pourrait très bien imaginer 41 faces 
de 10 secteurs de 512 octets), 
mais ceci est d'un intérêt douteux : 
il serait en effet nécessaire de réé¬ 
crire une bonne partie du DOS 
pour utiliser efficacement le nou¬ 
veau format. A titre indicatif, les rou¬ 
tines de formatage ont été commen¬ 
tées (figures 1 et 2). Vous remar¬ 
querez que, en fait, vu le contrôleur 
utilisé, tout se passe comme si l'on 
disposait par piste de #1970 oc¬ 
tets. On indique le début et la fin du 


secteur par des octets particuliers 
(cf. liste donnée). Le formatage 
consiste donc à inscrire sur la dis¬ 
quette les divers blocs définissant 
chacune des pistes. On pourra aus¬ 
si remarquer que le numéro logique 
des secteurs peut être modifié, de 
sorte que ceux-ci ne sont générale¬ 
ment pas numérotés par ordre crois¬ 
sant afin, principalement, de rédui¬ 
re les temps de déplacement de la 
tête du dernier secteur d'une piste 
au premier de la piste suivante. 
Mais ce fait avait déjà été exposé à 
propos du SEDORIC (série "Domp¬ 
tez votre Microdisc" par F. Broche, 
Théorie n° 7 et suivants). 

Après formatage, on a donc une dis¬ 
quette qui est découpée logique¬ 
ment en 41 pistes de 17 secteurs 
de 256 octets et ayant éventuelle¬ 
ment deux faces (on remarque 
d'ailleurs qu'une disquette forma¬ 
tée par un lecteur double tête et 
une autre formatée sur les deux fa¬ 
ces par une simple tête sont tout à 
fait différentes du fait que le sens 
de rotation du moteur ne peut être 
inversé). Désormais, pour repérer 
une information sur ce disque, on 
donne son numéro de face, de pis¬ 
te et de secteur. Constatons aussi 
que le secteur s'impose comme un 
bloc élémentaire sur une disquette. 
Il est, en effet, difficile de stocker 
sur un même secteur des informa¬ 
tions provenant de deux fichiers 
différents et de pouvoir les récupé¬ 
rer par la suite (il serait en effet 
nécessaire de repérer précisément 
le début et la fin de fichier, ce qui, 
dans le système FT-DOS 3.2, n'est 
pas prévu). 

Après le formatage, la disquette 
doit être initialisée. Cette opération 
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est tout à fait différente du forma¬ 
tage. Elle consiste à mettre à jour 
certains secteurs de la disquette, 
afin de permettre au DOS de se re¬ 
pérer et de stocker les informations 
désirées (secteurs de directory, Bit 
Map donnant l'état d’occupation de 
la disquette). Cette opération est 
donc directement en rapport avec 
le DOS et nous l'étudierons plus 
tard... 

POUR ALLER PLUS LOIN 

Le mois dernier, nous vous 
proposions d'utiliser le boot afin de 


restaurer les premières pages de la 
RAM. Le problème n'était guère 
difficile et il suffisait d'avoir compris 
la modification faite au DOS pour 
pouvoir implanter de telles possibili¬ 
tés. Une solution vous est donnée 
figure 3. Nous avons choisi (au détri¬ 
ment de la perte de place) de faire 
une solution totalement compatible 
ORIC-1/ATMOS, afin d'obtenir un 
DOS lui aussi compatible. Cela 
nous a obligé à donner en DATA 
les pages 0 et 2 sur ORIC-1 et 
ATMOS, puisqu'elles n'étaient pas 
forcément disponibles au moment 
de l'implantation de la routine. Le 


nouveau DOS ainsi obtenu peut 
être utilisé pour "déplanter" la ma¬ 
chine dans les cas dramatiques, 
mais nous vous déconseillons de 
remplacer totalement l'ancienne 
procédure de boot par celle-ci (en 
effet, elle est légèrement plus lon¬ 
gue du fait des opérations à réali¬ 
ser). A part cet exemple, la modifica¬ 
tion du boot peut être utilisée à n'im¬ 
porte quelle fin et, si elle permet de 
"déplomber" certains logiciels en re¬ 
prenant la main sans reset, elle per¬ 
met aussi de mettre en place des 
moyens de protection... 


FIgur* 1 

Programm* d* formalag* (parti* BASIC) 


Figure 2 

Routine de formatage (partie en LM commentée) 


20 REM 17 SECTEURS PHR PISTE 
30 REM 256 OCTETS PRR SECTEUR 


33 CLS 

35 PAPER 0 

36 INK6 

37 HM»l>£EK(iAô) ' 

38 OOKE*0A.HM 

40 REM 

41 HIMEM l»7AFF 

42 PRINT-FORPMTTAGE EN PREPARATION" 

45 'LOAD''FORMAT.CMD*’ 

50 ■LOAD"SECTOR.DAT" 

55 IF PEEK(#E6CA)»72 THÊN IQ*«245 ELSE 

IQ«ï#2.^=' 

60 CALLf»789F 
70 FOR J=1 TO 16 
80 SD-*7D29+J*354 
90 D0KEi7B7E.SD 
100 CALL#7B70 
110 DS-SO+ie 
120 POKE OS.J+1 
130 ÆXT J 
140 CALL«7BAA- 
870 REM 

872 PRINT 

873 INPUT "FORMATTACE? C0/N)”>0* 

874 IF û»»"N“ THEN2000 

875 CLS'PR1NT<PINC'PR1NTCHR«( 131 >;CHR»< etfattiesopérabonanécessaree : 

142 >; "CHANGEZ OE DISQUE I" ' chargement du disque et attente 

876 PRINTCHRSC131 );CHR»( 142); "CHANGEZ 

E DISQUE !“'PRINT:INPUT"PÛUR CONTINUER ' 

0 '"; 0 » 

877 IF 0*>^"0"THeN 870 

078 PRINT'PRINT-NOMBRE DE FACES ?" GET' Puis demande le nombre de faces 

' à formater (dans NF) 

879 NF»‘VAL<Y*)-IF <NF<1 OR NF>2> THEN87 


sauve le HIMEM afin de pouvoir le restaurer à la fin 


charge la routine LM de format^ 
et les données décrivant un secteur 
dans IQ : adresse de traitement des 
interruptions (10 = DEEK(«FFFE) 
aurait été tout de même plut simple, 
puis prépare les dorv^s décrivant 
logiquement chaque secteur dTjrte piste 


Propose ie formatage 


880 NP-41'SC*6 
885 REM 

890 CLS'PRINT"*«jEBUT FORMATTAGE**" ' 
895 REM 

897 POKE #3F9.0 

898 WAIT 1 

900 POKE II3F9.1 

904 POKE #3FC.I' 'SELECT DISK 
906 POKE •3F4,0 

910 FOR Fe0 TO NF-1 

911 PRINT"FACE '"jF+l 

912 REPEAT'UNTIL <PEEK<#3F4) Af-iD il>c0 

913 P0KEi3F8,F 

914 FOR FA=0 TO 16 

916 POKE #7D3A+FA4:354,F 

918 NEXT FA 

919 POKE #7C0l.244+2*F 

920 REPEAT'UNTIL tPeEK';«3F4) AND fil )»0 

921 POKE «3F4,0'S0-1 

922 FOR T-0TO NP-1 

923 S0-S0+SC'IF Se>17 THEN S0*S0-17 ' 

925 FOR FA-0 TO 16 

927 PL-d7D39+FA»354 
930 POKE PL/T 

932 S1»FA+S0'IF Sl>17 THEN Sl-31-17 ' 

933 POKE PL+2,S1 

935 NEXT FA 

936 POKE «7CAB/125 

937 klPEAT'UNTIL <PEEK<#3F4) AND #1;=0 
940 rUKE i3eE/127 

942 DOKE #97FE,DEEK'. IQ) 

944 DOKE IQ.i7CA0 
950 CALL II7C00 

952 DOKE IQ, DEEK<I»97FE) 

953 POKE 430E,192 

954 S*PEEK'. i3F4 ) 

955 IF SB>l92THENPRINT"t'lSÛUE PROTEGE" 
GOTO990 

956 IF tS AND 3X3 THEM9 d0 

957 PRINT"LOST DATA" GOT0936 

960 POKE II3F4,80 'STEP If-kS MS) 

970 NEXT T 

980 NEXT F 

981 PRINT'POKE#3F8-0 

982 PRINT-DISQUE FORHATTE"'GÛTO870 
990 PPINT"FORMATTAGE R'VORTE" 

1000 GÛTO870 


NP t nombre de piste/faoe. SC : 
décalage entre les numéros de 
secteurs situés sur urte ligne concentrique 


sélectionne le dsque à formater 


traite chacurte des faces l'une après 
l'autre (dans F ; rHiméro de face. 

0 pour la 1 ère) et attend coniréleur 
libre, sélectionne ensuite la face 
inscrit sur les donrtées relatives 
à chaque secteur, le numéro de face 
sur laquelle il va figurer 
met dans ie L M la commande à envoyer 
pour formater La face et atter>d 
le contrôleur, puis reset de œlui-a 
formate piste par piste 
SO contient le numéro LOGIQUE 
du 1 er secteur de la oiste-SC 
inscrit dans les données de chaque secteur 
son ruiméro de piste et de secteur 
(rHiméro logique contenu dans Si 
reset adresse début des données à 
inscrire et attend le contrôleur 
interdit les intemiptions du VIA 
sauve adresse des inter, du 6502 
et les détourne vers la roubne 
d'écri&jre des données Puis.atterKi 
que l'opéfation soit terminée et 
restaure l'adresse des interruptions, 
puis autorise les IRQ du VIA 
et regarde comment s'est passé 
le formatage de la piste en testant *3P4 
qui est l'octet de status du contrôleur 
avance la tête du contrôleur 

piste suivante 

face suivante 

fin du formatage resel 

du contrôleur et fin du programme 


Puis, on propose d'initialiser le volume (par une séquence du style 
INPUT A$/ 'INIT A$. et enfin, le programme se termine par 


2175 CLEAR efface les variables utilisées 

2180 DOKEttA6,DEEK'.a0H.« ' et restaure le HIMEM (sauvé au début) 


.•670' 

LC-A 

#*29 

78, 

'iTA 

*7676 

7675 

LC'M 

«*7D 

7877 

8Tm 

*7671; 

.-B7A' 

LC'A 

*.T‘29 

7B7C>' 

8TA 

*94AE' 

76x11 • 

INC 

*767E 

7683 

eiiE 

*7688 

7685 

INC 

*76,'F 

7638 

INC 

*,'676 

7686' 

6HE 

*7690 

7B8D 

INC 

»7e7>: 

7690 

LC'A 

*7676 

769 3 ' 

':mp 

«*8B 

7B95 

BtlE 

»rB7A 

7897 

LDA 

*767': 

7696 

CMP 

#*7E 

76*r. • 

6NE 

*76’H 

7B9E 

PT3 


7e9F 

LDY 

#*23 

78A1 

LDA 

#*4E 

reA3 

‘JA 

*7000, V 

76A6 

DEV 


7BA7 

6NE 

Ï7BA3 

7BA9 

RT8 


7eAA 

LC'A 

tt*4E 

TBAC 

STA 

S94A6 

78AF 

INC 

»76A0 

7662 

6NE 

*7867 

7BB4' 

INC 

S76ME 

7687' 

LC'A 

*76A0 

76BA ' 

CMP 

#*70 

76BC 

6ME 

*7eHA 

7666 

LC'A 

*7BAE 

7BCÎ 

CMP 

#*:‘t 

7BC3 

BNE 

*76AA 

7605 

RTS 


7000 

LC'A 

#trA 

7002 

C-TA 

*03F4 

7C 05 

LC-V 

#*05 

7ÔÔ7 

C'CV 


7r;n8 

NüP 


7809 

BNE 

»,Tor 

7006 

INV 


7CC*C 

ld:: 

*7001 

rcoF 

LC'A 

#*01 

7cn 

AMC- 

*0 5F4 

7014 

BNE 

*,'•: 11 

7016 

LCC: 

*03F4 

7019 

STX 

i.'CFF 

7C1C’ 

’:J'.' 

*70FE 

7C1F 

RTS 


rCAO 

■sTV 

*03F7 

7CA;-: 

INV 


7i:A4 ■ 

BNE 

«.■'CA9 

7CA6 

INC 

*7 CAB 

7CA9 

LDX 

*7000,Y 

7l.Ai: - 

RTI 



} routine de recopie de la zone #7D29Æ«7Ee8 
.1 (c.a.d des données caracténsant un secteur, à partir 
‘ de la zone dont l’adresse de début est indiquée par 
'' le contenu de (#7B7E.#7B7F) On crée ainsi une zone 
! à partir de *7029 contenant tout le descriptif d'une piste. 
. seuls seront à ajuster les numéros de secteurs, 
dépisté et de face 


Préparation de l'en-tête d'une piste une série 
de 41 (s#29) octets à *4E et qui définit le début 
de .la piste. 


/ et on met alors, après les données caracténsant ch 
1 la fin de la piste, 

^ on a alors, de #7000 à *9670 ur>e zone définissant 
^ complètement une piste de 17 secteurs, chacun de 
^ 256 données. Pour plus de précision sur ce fait, 

; se reporter aux commentaires à côté des données 
relatives à un secteur, ci-dessous 


commande de formatage de la face (c a d d'écriture 
' des données), cette commande à envoyer au 
] contrôleurest*F4pourlaface 1 (numéroO) 
et #F6 pour la face 2 (numéro 1 ). 


attend que fout soit fini pour rendre la main 
cette routine est une routine à peu près standard 
de formatage et peu être réutilisée si vous 
voulez faire un formatage différent 


roubne s'éxécutant sur les interruptions lors 

* du formatage et se chargeant d'inscrire les 

* données sur le disque (similaire aux routines de 

' détournemeni des interrupboos que nous avons vues 
^ lors de l'écriture et de la lecture d\in secteur 


Formatage <fun disque données logiques caractérisant une piste 
(ia données caractérisant un secteur) 


7D29' 

00 

00 

00 

00 

00 

00 

00 

00 

7'?7?7'f7? 

7D31 ' 

00 

60 

00 

00 

F5 

F5 

F5 

FE 

77777 T ?T- 

7D 39' 

00 

00 

01 

01 

F7 

4E 

4E 

4E 


7D41 • 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

NNNNNNNN 

7D49' 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

HNNNNNNN 

7D51 ' 

4E 

4E 

4E 

00 

00 

00 

00 

00 

NNN??'?'?î 

7D59' 

00 

00 

00 

00 

00 

00 

00 

F5 

7777777? 

7061 • 

F5 

F5 

FB 

60 

60 

60 

60 

60 


7D69‘ 

6C 

6C 

60 

60 

60 

60 

60 

6C 

iMum 

7D71 ' 

6C 

6C 

6C 

60 

60 

60 

6C 

60 

nuuii 

7D79' 

6C 

6C 

6C 

60 

6C 

60 

60 

60 

lUlUll 

7081 ■ 

6C 

6C 

6C 

60 

60 

6C 

6C 

6C 

UUllU 

7D89' 

6C 

6C 

6C 

60 

60 

60 

6C 

60 

uimu 

7D91' 

6C 

6C 

6C 

60 

60 

60 

6C 

60 

iniiui 

7D99' 

6C 

6C 

6C 

60 

60 

6C 

6C 

6C 

muni 

7DA1 ' 

6C 

6C 

6C 

60 

6C 

60 

6C 

6C 

uium 

7DA9‘ 

6C 

60 

60 

60 

60 

6C 

60 

60 

miiui 

7061 ' 

6C 

60 

60 

60 

60 

6C 

60 

6C 

uuuu 

7DB9' 

6C 

6C 

60 

60 

€0 

60 

60 

60 

muni 

7DC1' 

6C 

60 

60 

60 

60 

60 

60 

60 

UllllU 

7DC9' 

CC 

6C 

60 

60 

60 

6C 

60 

6C 

umm 

7DD1 ' 

6C 

6C 

60 

60 

60 

60 

60 

60 

uium 

70D9' 

6C 

6C 

60 

60 

60 

60 

60 

6C 

uimii 

70E1' 

6C 

6C 

60 

60 

60 

60 

60 

6C 

uium 


) On dispose de *1970 octets pour coder une piste et 
on peut les répartir en secteur comme désiré En ef¬ 
fet. la simple observation de cette zone de don¬ 
nées, qui caractérise un secteur, suffit à constater 
qu'il y a des octets "marqueurs* codant ie début et la 
fin d'un secteur, (série de 0 et de *F5) On peut ré¬ 
partir la place d'une piste en autant de secteurs 
qu'on le souhaite et la longueur des secteurs peut 
être choisie arbitrairement (généralement 256 ou 
512 octets). Cependant, il n'a pas été proposé la de 
routines de formatage dans un format différent de 
celui choisi par T.R A N (41 pistes de 17 secteurs 
de 256 octets), l'intérôt étant id réduit ie seul in¬ 
térêt est un gain de place (plus d'mforma&ons sur un 
disque), mais il faut aussi réécrire toutes les rou¬ 
tines de lecture/écriture et cela se fait au nsque de 
perdre un peu de fiabilité (la place physique n'au¬ 
gmentant pas sur le disque, cela revient à écrire de 
manière plus dense). 

A noter que, pour chaque secteur, figure dans ses 
données son numéro de piste (en *7D39). son nu- 
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7VE9 

£C 

6C 

6C 

SC 

SC 

SC 

SC 

6C 

UIlllM 

7DF1 ■ 

8C 

6C 

SC 

SC 

SC 

SC 

SC 

SC 

uinui 

70F9' 

6C 

6C 

SC 

SC 

SC 

SC 

SC 

SC 

lUlllll 

7E01 = 

6C 

6C 

SC 

SC 

SC 

SC 

SC 

SC 

iiiiiin 

7E09i 

6C 

6C 

SC 

SC 

SC 

SC 

SC 

SC 

unuii 

TZli' 

SC 

6C 

SC 

6C 

SC 

SC 

SC 

SC 

uuun 

7E19- 

SC 

6C 

SC 

6C 

SC 

SC 

bC 

SC 

uuun 

7E21 - 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

lUUlU 

7E29' 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

nuuii 

7E31 • 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

llUllll 

7E39' 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

IIIIUU 

7E41< 

SC 

SC 

SC 

SC 

SC 

6C 

SC 

SC 

uuun 

7E49’ 

SC 

SC 

SC 

SC 

SC 

SC 

ec 

SC 

UIUIU 

7E51 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

SC 

UUllU 

7E59' 

SC 

SC 

SC 

SC 

SC 

6C 

SC 

FC 

UlUlU 

7E61 • 

SC 

SC 

SC 

F7 

4E 

4E 

4E 

4E 

ll17NNMH 

7E69' 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

ItIMfNNHff 

7E71 - 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 


7E.»9' 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 


7E81 ■ 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

4E 

HHHHKNNN 

7E89 

4E 

4E 

55 

55 

55 

55 

55 

55 

HHÜUUUUU 


J méro de face {en #7D3A) et son numéro de secteur 
) Cela veut dire que ke deuxième secteur sur une cou- 

> ronne ne sera pas forcément le deuxième secteur lo- 

> gique, c'est-à-dire le secteur à être adressé sous le 

> numéro 2 par le contrôleur. 

^ En fait, les numéros logiques de secteurs sont attri- 
' bués de, manière à ce que le déplacement de la tète 
^ de lecture d'un secteur au suivant soit le plus rapide 
y possible {système similaire à celui décrit par Fabrice 
) BROCHE dans sa présentation du SEDORIC dans 
} un numéro précédent (ce numéro est en »703B). 

> 

> 

> 

) 

> 

) 

> 

> 

> 


Figure 3 

Programme de restauration dee pages 0 et 2 
sur le- boot, compatible ORIC-1 et ATMOS 

10 REM===***»*=======»=*»»===»===**»»*» 

20 REM= 

30 REH> Restauration des pages 0 = 

40 REI1= et 2 sur le boot = 

50 REMs 

60 REM* Compatibilité totale oric-1 * 

70 REM* e. atmos 
80 REM* 

90 REM» <c) Pierre CHICOURRAT 

J 00 REM** = »******== = = = === = = »»» = » = = » = »» = = 

ilO DIMPis).S<5)'numéro de piste et secteur qui seront implantes 
120 REM 

130 ^EM Regarde si la disquette a ete masterisee 
140 REM et SI elle ne l'est pas recopie le dos 
150 REM 

160 DOKES48F.eAOOO;POKE*4BC.I :POKEa4 8D.20 :POKE«48E.2 : 'R£ 

170 IFDEEK<SA010)<>*S9S3THENPING;PRINT"MASTERING DISK _";'MASTER"NFTDOS32" 

180 REM 

190 REM Cherche des secteurs Iibres pour y mettre les pages 0 et 4 
200 FORI*0TO5 

210 POKES48C.1 : 'FS :P<I)»PEEK<i48D): Si I)=PEEKi«48E) 

220 DOKES48F.SAOOO:'RSi’WS;REM et déclaré chacun d'eux occupe 
230 NEXT 
240 RESTORE 
250 REM 

260 REM Récupéré la nouvelle routine de boot (implantée secteur 1 piste 0) 

270 REM 

280 AD*SAOOO:COSUB410 
290 FORI*0TO5:READJ: J*J*AD 
300 POKEJ.Pin;POKEJ+2.S(I) 

310 NEXT 
320 REM 

330 REM Puis implante les divers secteurs utiles (ceux contenant les pages 
340 REM et qui seront charges en premier, ainsi que l'ancienne routine de 
350 REM boot qui sera utilisée pour charger le DOS 
360 REM 

370 DOKE«48F.«Al 00 ;POKE#48C.1 :POKEa4eD,0 :POKE»4eE.1 : I RS 
380 DOKEa4 8F,#AOOO:POKE#4 0C.1 :POKE#48D.0 :POKE#48E,1 : ■WS 
390 GOSUB410 : 1*0 :GOSUB430: 1=1 :AD»«A100;GOSUB430 
400 FORl*2T05:AD»«A000:GOSUB410 ;G0SUB430:NEXT: END 
410 FORK*0TO255:READA* A*VAL(“«"+AI):POKEK + AD.A :NEXT 
420 RETURN 

430 POKE#48C,1;POKE#4eD.P(1) P0KEi4BE.SII1 :DOKEa4BF.AD ; 'WSrRETURN 
440 REM 

450 REM Nouvelle routine de boot 
460 REM 

470 DATA7e.A9.7F.80,0E.03.AO.00.BC.FA.03,aC.FB.03.84,04.8C.F4.03.AD 
480 DATAFE.FF.8D.FF.04.C8.8C.FA.03.A9.04.BD,FF.FF.A9.A8,8D.FE.FF.EA 
490 DATAEA.A9.00.A2.00,AO.CO.20.68.04.A9.00.A2.00.AO.Cl.20.68.04.A9 
500 DATAOO.A2.00.20.62.04.FO.04.A9.00.A2.00.AO.C2.20.68.04.A9.00.A2 
510 DATAOO.20.62.04.FO.04.A9,0q.A2.00,A0,C3,20,68.04.4C.00.CO . AC,FF 
5 20 DATA04,C0. 8,60.85.01,86.02,84.05.A9.05.85.00.20.Cl.04.20.FI .04 
530 DATAA5.02.8D.F6.03.AD.F7.03.A9,90.AO.00.8D.F4.03,58.AE.F4.03,EO 
5 40 DATAS 1.90.20.CO.00.FO.F5.CO.00.DO.FC,AD,F4.03.29,IC.DO.11.78,A9 
550 DATAD0,BD,F4.03.AD.F7,03.60,AD.F7.03.91.04.CB.40,20.9E.04.20.C1 


560 DATA04.C6.00.DO.C4.A9.00.8D.FA.03.6C.FA.FF.AO.05.88.FO.F3.20.Fl 
570 OATA04 . A2.00 . A5.01 ,C9.29.90.03 . E9.29 . E8.8E . F8.03.0D . F7.03 . A«î. 1 4 
580 DATA8D.F4.03.20.Fl.04.AD.F4.03.29.IS.FO.07.A9.00.8D.F4.03.FO.D3 
590 DATA60.AD.F4.03.4A.B0,FA.60.55.55.55.55.55.55.55.55 
600 DATAIl2A,tt33.«3C.tt45.(l4E.tl57 
610 REM 

620 REM Routine de restauration des pages 0.2 et de prepatation page 4 
630 REM pour charger la fin du DOS. Cette routine se contente en fait de 
640 REM transférer les pages chargées en Ram Overlay vers la RAM 
650 REM 

660 DATAAO .00. B9.00.Cl.99.00.04, B9,00,C3,99,00.02.88. DO.Fl. AO.34, e<î 
670 DATAOO.C2.99.00.00.e8,DO.F7.AO.DO.B9.00.C2.99.00.00.C8.DO.F7.4C 
600 DATAOO,04.55.55.55.55.55.55.55,55.55.55.55.55.55.55.55.55,55.55 
690 DATA55.55.55.55.55.55.55.55.55.55.55.55.55.55.55.55.55.55,55.55 
700 DATA55.55.55.55.55,55.55.55.55.55.55.55.55.55.55.55,55.55.55,55 
710 DATA55.55,55.55,55.55.55.55.55.55.55.55.55.55.55.55,55.55.55.55 
720 DATAS5.55,55.55.55,55,55.55.55.55.55.55,55.55.55.55.55.55.55.55 
730 DATA5S,55,55,55.55.55.SS.55.55.55.55.55,55.55.55.55.55.55.55.55 
740 DATA55.55.55.55.55,55,55.55.55.55.55,55,55.55.55.55.55.55.55.55 
750 DATA55.55.55.55.55.55.55.35.55.55.55.55,55.55.51,55.55.55.55.55 
760 DATA55.55.55.55.55,55,55,55.55.55.55,55.55.55.55.55.55,55.55.55 
770 DATA55.55,55.55,55,55.55.55.55.55.55.55.55.55.55.55.55.55.55.55 
780 DATA55.55.55,55.55.55.55.55.55.55.55.55.55.55.55.55 
790 REM 

800 REM Page 0 normale sur oric-i 
810 REM 

820 DATAOO.00,00,01.78,05.OA.00.FF.FF.00.9F.DO.BF.AB.BF.00.00.BB.BF 
830 DATAIS.FB.00.06.3B.C1.4C.ED.CB.1A.00.00.FF.4C.AO.D2.22.00.4l.OA 
840 DATAOO.00.57.00.00.02.00.00,OD.50.47.BC.05.91.30.30.2C.30.30.2C 
850 DÂTA35.37,2C.30.30.2C.33.30.2C.32.43.2C.33.33.2C,33.30 .2C.32.43 
060 DATA2C,33.32.2C.34.33,2C,32.43.2C.33.33.2C,33.33.2C.33.33.2C.32 
870 DATA43.2C.33.33.2C.33.33.2C.32.43.2C.33.32.00.00.AO.OO.A0.22.45 
880 DATA07.70.00.00.OS.00.00,03.07.00.80.01,FF.88.85,00.OA.B6.C3,00 
890 DATAOO.FF.01.FF.12.4A.OD.A7.Eü.58.80,00,00,00.01.05.4C,OD,03,05 
900 DATA0D.OD.00,60.00.60.00.60.84.FF.50.00.00.05.OC.2B.00.05.36.00 
910 DATA4F.80.2 4.0D.04.0D.FF.OC,00.00.00.8a.OO.FF.03.4C.C8.00'. 35.CC 
920 DATAOD.CC.OC.00.00.00.CC.OD.84.00.00.00.OA.00.00,00.84.AO.00.00 
930 DATAOO.00.00.00,OB.C3.E6.E9.DO.02.E6.EA.AD.35.00.C9.20.FO.F3.20 
940 DATA41.EA,60.2C.60,EA.2C.60.EA.60.80.4F.C7,52.00.23 
950 REM 

960 REM Page 0 normale sur atmos 
970 REM 

980 DATAOO.00.00.01.08.07.OA.00.FF.FF.FF.FF.00.01.AB.BF,00,03.B8,BF 
990 DATA32.FB.00.00.39.Cl.4C.BO.CC.34.00.00.FF.4C.36.D3.22.00,41.34 
1000 DATAOO.FF.57.00.FF.FF.00.00,02.28.28.IC.07.91.30.30.2C.46.46.2C 
1010 DATA3S.37.2C.30.30.2C.33,30.2C.32.43.2C.33.33.2C.33.30.2C.32.43 
l020 DATA2C.33.32.2C.34.33.2C.32,43.2C.33.33.2C,33.33,2C,33.33,2C.32 
1030 DATA43.2C.33.33.2C.33,33.2C.32.43.2C.33,32.00.00.00.00.00.00,00 
1040 DATAOO.00.00.00.00.00.00.00.FF.FF.FF.FF.FF.88.85.00.OA.B2.C3,FF 
1050 DATAFF.FF.FF.FF.00.ee, I3.AB.EO.00.00.00.00.00.0I.05,CE.13.03,OS 
1060 DATAOF.l4.00.50.00.50.00.50,FF.FF.FF.FF.FF.00.FF.FF.00.05.00.00 
1070 DATAOO- 00.24.00.04.00.00.00.00.00,00.88.00.FF.03.4C.FF.00.FF.4E 
1080 DATAIS.4E.13.FF.00,00.4E,14,84.00.00.00,OA.00.00.00.84.AO.00.00 
1090 DATAOO.00.00.00,OB.C3,E6.E9,DO.02,E6.EA.AD.35.00.C9.20.FO.F3.20 
1100 DATAB9.EC,60.2C,60.EA,2C.60,EA.60,80.4F.C7.52.00.00 
1110 REM 

1120 REM Page 2 normale sur oric-1 
1130 REM 

1140 DATADO.BB.AB,BB.10,04,28.FF.AF.38,DF.EF.FF,F8.1E.11.07.07.00.00 
1150 DATAOO,00.00.00,00,00.00,00.00.00.00.00.00.FF.FF.FF.FF,FF.FF.FF 
1160 DATA4C,03.EC,4C.30.F4.01,00.40.DO.82.00.00.00,00,00.00.00.00.00 
1170 DATAOO.00.00.00,FF.FF,FF.FF,FF,FF.FF.FF.FF,FF.FF.FF.FF.FF.FF.FF 
1IBO DATAOO.00,00.00.00.00.00.00.00.00.00.00.00,00,00.00.FF.OF.F6.04 
1190 DATAI A,80.FF.FF.13.00.03.10.02.00.BB.1B.00.01.01.00.19.00.B7,E6 
1200 DATAOO.00,00,00.00,00,00.00.FF.FF,FF,FF.FF.FF,FF.FF.FF.FF.FF.FF 
1210 DATAFF.FF.FF.FF.00.00,00.00.00.00.00.00.00.00,00.00.00.00.00.00 
1220 DATAFF.FF,FF.FF,FF.FF.FF,FF,FF.FF,FF.FF.FF.FF.FF.FF.00.00.00.00 
1230 DATAOO.00.00,00.00.00,00,00.00,00,00.00.02.00.9F.AD,FF.FF.FF.FF 
1240 DATAFF,FF.FF.FF.FF.FF,FF,FF.00.00.00.00.00.00,00.00.00.00,00.00 
1250 DATAOO,00,00,00,00.02,00,FF,FF,FF.FF,FF,FF,FF.FF.FF.FF.FF.FF,FE 
1260 DATA02,00,00,00,00,AO.D2,00,10,00,00.4C.AO,D2.00.00 
1270 REM 

1280 REM Page 2 normale sur atmos 
1290 REM 

1300 DATAOO.01.02.FF,00.FF,FF.FF.30.38,DF.EF.FF,FS.20.FF.87.07.00,00 
1310 DATAOO,00.00.03,00.00,00.00,00.00.00,00,00.FF.FF,FF,FF,FF.FF.FF 
1320 DATAFF.FF.FF.FF,FF.FF,FF,FF.00,00,00.00,00,00,00,00,4C.7C.F7.4C 
1330 DATA7a.EB.4C.C1,F5.4C.65,FB.4C.22.EE.4C.B2.F0.40,FF.FF.FF.20.04 
1340 DATAOO.01.00.02.00.00,50,28,00,00,00,00.00.00,00,00,00,63,F6.FF 
1350 DATAFF.00.FF.FF,lB.02.03,10.02,FF,FF.FF.00.00.02.00,07.00.15.El 
1360 DATADO.BB,AS.BB.10,04.IB.00.FF,FF.FF,FF,FF,FF,FF,FF.FF,FF.FF,FF 
1370 DATAFF.FF,FF,FF,00,00,00.00,00.00,00.00.00.00.00.00,00.00.00.00 
1390 DATAFF.FF.FF,FF.FF.FF.FF,FF,FF.FF.FF.FF.FF.FF.FF.FF.00.00.00.00 
1390 DATAOO.00.00,00.00,00.00.00.00,00,00.00.02.00,98,FF.FF.FF.FF.FF 
1400 DATAFF.FF,FF.FF.FF,FF.FF.FF.00.00.00,00.00,00.00.00,00.00.00,00 
1410 DATAOO,00,00,00.FF.02.00,FF,FF.FF,FF,FF,FF.FF.FF,FF.FF.FF.FF.FF 
1420 DATAOO.00.00.00,00,00.04.00.10.00.00.4C,36.D3,00,00 




Gegnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile ; le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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INVERSION VIDEO 

Voici une courte routine, valable 
pour ORIC-1 ou ATMOS, capable 
d'inverser un écran MIRES (le blanc 
devient noir et réciproquement). 
Ceci peut être intéressant avant de 
lancer une recopie d'écran, par 
exemple. 

La routine est relogeable. Ici, nous 
l'avons mise en #1000. Rien ne 
vous empêche de la mettre en 
#9000... Il suffit pour cela de chan- 


1 000 

A2 

00 

LDX 

#$00 

1 002 

A9 

3F 

LDA 

#$3F 

1 004 

85 

00 

STA 

$00 

1006 

A9 

BF 

LDA 

#$BF 

1008 

85 

01 

STA 

$01 

1 OOA 

Al 

00 

LDA 

< $00,X) 

1 OOC 

49 

3F 

EOR 

#$3F 

lOOE 

• 81 

00 

STA 

($00,X) 

1010 

C6 

00 

DEC 

$00 

1012 

DO 

F6 

BNE 

$ lOOA 

10 14 

C6 

01 

DEC 

$01 

1016 

A5 

01 

LDA 

$01 

10 18 

C9 

9F 

CMP 

#$9F 

1 0 1 A 

DO 

EE 

BNE 

$ 1 OOA 

1 0 1 G 

60 


RTS 



Pointe la fin d'écran 
MIRES (BF3F) 
et range en $ 00 

Prend l'octet situé à 
l'adresse, l'inverse (EOR) 
et le remet en place 
Pointe adresse précédente 

Teste début écran MIRES 
Si oui, c'est fini ! 


ger les valeurs de A et F sur la ligne 
10 . 

Pour exécuter la routine, il faut être 
en mode MIRES et faire : 
CALL#1000. 


10 A=#1000 :F=#1OIC;L=100 :REPEAT; FOR A = A TO A+15;READ C$ 

20 K = VAL<"#"+C$) :S = S + K + 65536t(S + K>65535) ; IF A< = F THEN POKE A,K 
30 NEXT:READ Dt:lF S=VAL("#"+D$) THEN L=L+5:UNTIL A>F:END 
40 PING ; PRINT"Erreur Iigne".:L 

100 DATA A2,00,A9,3F,a5,00.A9,BF,85,01 ,A1 ,00,49,3F,81,00,05A7 
105 DATA C6,00,D0,F6,C6,01,A5,01,C9,9F,D0,EE,60,00,00,00,0D26 


IMPRIMANTE RS 232 
OU CENTRONICS 

La version 2.0b de l'MYPER-BASIC 
intègre une nouvelle possibilité 
pour la gestion de l'imprimante : si 
on tape POKE #28C,132, tous les 
accès à l'imprimante (LPRINT, 
LWIDTM, canal 14 ...) seront rediri¬ 
gés vers la sortie RS 232, afin d'utili¬ 
ser pleinement et... facilement une 
imprimante série. 

Pour revenir à la normale, il suffit de 
taper POKE #28C, 128. 

Pour utiliser cette possibilité en TE- 
LEMATIC 
BASI 
POKE^#: 

Bien en 
cisée pal S 
valide, 'i; 

GAGNER DE LA PLACE 
EN TELEMATIC 



mémoire sous TELEMATIC : 

En mode direct, faire une fois pour 
toute MIMEM #8000. 

Ensuite, intégrer dans la partie du 
programme, qui n'est exécutée 
qu'une fois (en général après 1er IF 
FLAG...), la ligne suivante : 

DOKE #7B5,#4000;CLEAR 
et le tour est joué ! 

Une seule contrainte toutefois, 
dans le cas où l'arborescence est 
trop longue, il risque d'y avoir cqjn- 

PoLjF^li^âvftè^ cHfârgô? l'arttorescen- 
tez spn aKiresse de fin 

Si ce^^^^est supérieur à la va¬ 
leur précédente, tout va bien. Si¬ 
non, optimisez votre programme ? " 

EViTÊRlA COMPILATION 
‘‘tÔRS DU LIST 


style RUN ou GOTO ou encore exé¬ 
cution de sous-programmes, elle 
apparaît comme très superflue 
dans le cas d'une commande com¬ 
me LIST. 

Or, on peut dans tous les cas se 
passer de la commande LIST en uti¬ 
lisant la possibilité de l'éditeur de se 
déplacer dans le source BASIC : 
par exemple, au lieu de taper LIST 
1000, il suffit d'allôf’*ilrfi bas de l'é¬ 
cran (avec lès flèchiÉ du curseur 
par èY«yiple> et de taper 1000 suivi 
dé la fléché veféJe ba^ 

ce eétT'îar^ne i^ivant la ligne 
1000 î^araîtra immédiatement, 
car il n'y aura pas eu de compilation 
due à un mot clé. 

BROCHAGE RS 232 
S=^MWANTE 

Voici le brochage à adopter pour 
brancher une imprimante série sur 
unTélestrat : 


Lorsque l'on fait un programme BA¬ 
SIC lié à la TELEMATIC, le MIMEM 
#4000 fait que l'on ne dispose plus 
que de 14 Ko pour le BASIC, ce qui 
se révèle peu pour des grosses ap¬ 
plications. 

Voici une méthode pour doubler la 


Mea culpa : le fait que l'hyper- 
BASIC du Télestrat soit compilé obli¬ 
ge à faire souvent de nombreuses 
vérifications après chaque modifica¬ 
tion de ligne. 

Ce fait est irritant et, s'il est indispen¬ 
sable dans le cas d'instructions du 


Télestrat 

Imprimante 

7(GND) <—■ 

—-> 7(GND) 

2(TX) -- 

--> 3(RX) 

8(DCD) <—- 

- 20 (DTR) 


Fabrice BROCHE 
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CLAVIER TURBO 

Philippe MULAC 


R éservé à l'ATMOS, cet utilitaire en langage machine est desti¬ 
né à faciliter la saisie de lignes BASIC. Le programme est égale¬ 
ment utilisable en mode direct et toutes les fonctions habituel¬ 
les du clavier restent disponibles. 


Le programme utilise la touche 
FUNCT qui doit être pressée simul¬ 
tanément avec une 2ème touche 
pour obtenir les différentes fonc¬ 
tions de clavier TURBO. 

Les fonctions créées sont ; 

NUMEROTATION 

AUTOMATIQUE 

RECOPIE 

EFFACEMENT 

MOTS CLES DU BASIC 


ble d’y implanter d'autres mots-clés. 
Toutes les explications nécessaires 
sont fournies dans le programme 
BASIC. 

Le programme BASIC, hormis les 
explications, ne sert qu'à implanter 
le langage machine. C'est ce langa¬ 
ge machine, et lui seul, qui est utili¬ 
sé ensuite. 

Lorsque le L.M. est implanté à partir 
du BASIC ou chargé par K7 en mo¬ 
de NON AUTO, le détournement 


des interruptions doit être réalisé 
par : CALL XX (XX représente la va¬ 
leur du début du L.M.). Après char¬ 
gement du LM en mode AUTO, le 
détournement des interruptions 
est implanté automatiquement et le 
programme directement utilisable 
sans autre intervention. 

Le programme n'est pas compa¬ 
tible ORIC-1. Les routines d'affi¬ 
chage sont différentes, notamment 
dans la gestion des interruptions. 

Les lignes 0 à 3000 sont suffisan¬ 
tes pour réaliser l’implantation du 
L.M. 


Le programme CLAVIER TURBO 
travaille en détournant la routine 
d'interruptions. 

Il a été conçu pour offrir le maximum 
de liberté aux utilisateurs. Il est en¬ 
tièrement relogeable et les mots- 
clés peuvent être modifiés ou sim¬ 
plement déplacés d'une touche à 
une autre. Certaines touches ne 
sont pas utilisées, mais il est possi- 


FUNCT + ESC 

NUMEROTATION AUTOMATIQUE 
Génère un numéro de ligne, multiple de 10, supé¬ 
rieur au plus grand numéro. Cette fonction est pro¬ 
tégée pour ne pas sortir un numéro de ligne supé¬ 
rieur à 63990. I 

FUNCT + • i 

RECOPIE les dix cases suivant le curseur. Cette i 
fonction est protégée pour ne pas dépasser la capa¬ 
cité du butter d'entrée. 

FUNCT + DEL 

EFFACE les cases précédant le curseur jusqu'à 
trouver un espace, puis efface les espaces. Si le 
curseur pointe à l'origine sur un espace, cette fonc¬ 
tion n'effacera que les espaces et s'arrêtera sur le 
1er caractère trouvé. 

! FUNCT+\ , 

! EFFACE les dix cases précédant le.curseur. | 

1 Les deux fonctions EFFACEMENT s'arrêtent en dé- 
I but de ligne et ne "renrontent" pas à la ligne précé- 
; dente. 

î FUNCT + autre touche : 

37 mots-clés du BASIC. Cette fonction est égale- ' 
ment protégée pour ne pas dépasser la capacité du 
buffer d'entrée. 


Liste des mots-clés 

FUNCT + autre lettre 

\ 

A 

AND 

M 

MID$ 


CALL 

1 

MUSIC 

i 4^ 

CHR$ 

N 

NEXT 

1 0 

CIRCLE 

P 

PEEK 

i [ 

CURMOV 

6 

PING 

] 

CURSET 

2 

PLAY 1 

D 

DEEK 

Z 

POKE 

X 

DOKE 

R 

REPEAT I 

= 

DRAW 

> 

RIGHTS i 

E 

ELSE 

7 

SHOOT 

5 

EXPLODE 

3 

SOUND 

F 

FOR 

S 

STR$ ; 

B 

GOSUB 

T 

“ TEXT 

G 

GOTO 

0 

THEN i 

H 

HEX$ 

U 

UNTIL 

1 

INPUT 

V 

VAL 

K 

KEY$ 

w 

WAIT 

, < 

LEFT$ 

8 

ZAP 

1 L_ 

LORES 


J 


100 REr’i===============-=-==^===--====== 

11O REM MENU 

120 REM===================:= ======== === 

130 CLS: INKO:PhPER6:SGSUB500 

140 PRINT:PRINT:PR INT : RRINTC*: PR INT" 

M E N U":PRINTC$ 

150 PRINT : PR INT ; RR INT 

160 PR INTAS-»-" -1- IMPLANTATION DU CÜ 
DE MACHINE "-t-BS: PR INT 
170 PRINTAS-»-" -2- SAUVEGARDE DU CODE 
MACHINE "-»-B$: PRINT 

180 PRINTAS-»-" -3- EXPLICATIONS 
"-t-BS: PRINT 
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190 PRINTA*+" -4- CONSEILS 
■■+B$:PRINT 

200 PRINTA»+" -5- DEMARRAGE DU PR06R 
AMME MACHINE"+6$:PR INT 
210 PRINTA$+" -6- SORTIE DU BASIC 
••+B$:PRINT 

220 PRINT:PRINT:PRINT:PRINTD»+" TAPEZ 
VOTRE CHOIX ..."+B$:GETZ$ 

230 Z=VAL(Z$):IFZ<10RZ>6THENZAP:GOTOl 
00 

240 ON Z GO TO1000,3000,4000,5000, 6000, 7 
000 

500 REM 

510 REM I N I T 

520 REM 

530 A$=CHR$ (145): B<i=CHR* (150): C^=CHR$ 
(147):D$=CHR*(148) 

540 RETURN 
800 REM 

810 REM G E T Z$ 

820 REM 

830 PRINT: PRINT: PRINT: PRINT 
850 PRINT 

860 PRINTD$+" Appuyez sur une touche 
..."+8$:GETZ*:RETURN 
1000 REM============================= 

1010 REM CHOIX ET 

1020 REM 

1030 REM IMPLANTATION 
1040 REM============================= 

1050 CLS: PRINT: PRINT: PRINT: PRINTA$+" 
VOULEZ-VOUS MODIFIER" 

1060 PRINTA$:PRINTA*+“ LA ZONE D'I 
MPLANTATION ?" 

1070 PRINT:PRINT:PRINTC$+" Zone pre 
vue : #9500 a #97BF" 

1080 PRINT:PRINT:PRINTD$+" Tapez 0( 
ui) ou N(on)":GETZ$ 

1090 IF Z $="N"THENAR=#9500: GOTO1200 

1100 IF Z $ <>"O"THEN Z AP: GOTO1000 

1110 E=DEEK(#90 +#500:F=DEEK(#A6)-#2C 

0 

1120 CLS:PRINT:PRINTA$+" La valeur d 
e début doit etre" 

1130 PRINTA$+"comprise entre ";:PRINT 
HEX$(E);:PRINT" et "; :PRINTHEX*(F) 

1140 PRINT:PRINT:PRINTD$+" Entrez vo 
tre choix . . . "+B$; : INF’UTAR 
1150 IFARCE OR AR>F THEN ZAP:G0T01000 
1200 REM 

1210 REM IMPLANTATION 
1220 REM 

1230 DOKEO,AR: HIMEMAR-1 :AR=DEEK(0): GO 
SUB500: YY=AR:LI=2100: RESTORE 
1240 PRINT;PRINTC$+" PATIENTEZ UN INS 
TANT ..."+B$ 

1250 F0Rl=ir08 

1260 READX$:X=VAL("#"+X$):POKEAR,X:AR 
=AR+1:SO=SO+X 


1270 NEXT 

1280 READX$: X=VAL("#"+X$) : IFXOSOTHEN 
1800 

1290 LI=LI +10:S0=0: IFLI<2980THENG0T01 
250 

1300 REM 

1310 REM MODIF. SELON IMPLANTATION 
1320 REM 

1330 AR=YY:DE=YY+#60:X=INT(DE/256):Y= 
DE-X*256:POKEAR+2,Y:POKEAR+7,X 
1340 AS=YY-1;X=INT(AS/256):Y=AS-(X*25 
6):POKEAR+12,Y:POKEAR+16,X 
1350 D0KEAR+#C5,AR+#173:DOKEAR+#CC, AR 
+#20D 

1360 D0KEAR+#D3,AR+#257:DOKEAR+#DA, AR 
+#28C 

1370 DOKEAR+#BE,AR+#17:DOKEAR+#E1,AR+ 
#67 

1610 PRINT:PRINT:PRINT:PRINTA$+" I 
MPLANTATION TERMINEE":G0SUB800:GOTO100 
1800 PRINT"ERREUR LIGNE"; : PRINTLI: END 
2000 REM============================= 

2010 REM DATA 

2020 REM============================= 

2100 DATA 78,A9,60,8D,45,02,A9,95,393 
2110 DATA 8D,46,02,A9,FF,85,A6,A9,451 
2120 DATA 94,85,A7,58,60,EA,EA,EA,536 
2130 DATA AC,B5,AB,00,01,BF,E7,A7,45A 
2140 DATA 00,EA,AA,00,5C,A9,C9,8A,3EC 
2150 DATA 00,D1,7F,00,00,B9,1B,A8,2CC 
2160 DATA 00,00,00,00,00,00,00,00,000 
2170 DATA 00,C8,E6,00,00,ED,8D,EB,413 
2180 DATA 00,97,AD,F5,00,9B,8B,A4,403 
2190 DATA 89,DC,92,F4,00,A6,A1,90,4C2 
2200 DATA A5, 00,8C,00,F1,F6,00,A3,3BB 
2210 DATA EA,EA,EA,EA,EA,EA,EA,EA,750 
2220 DATA 78,08, 48, 98, 48, 8A, 48, A2, 31C 
2230 DATA EF,A9,OE,20,90,F5,A9,05,3F9 
2240 DATA 09,10,8D,00,03,AA,CA,DO,2ED 
2250 DATA FD,A9,08,2D,00,03,DO,09,2B7 
2260 DATA 68,AA,68,A8,68,28,4C,22,320 
2270 DATA EE,AO,00,8C,DF,02,84,00,37F 
2280 DATA A2,7F,SA,48,A9,OE,20,90,35A 
2290 DATA F5,A2,07,8A,09,10,8D,00,2CE 
2300 DATA 03,E6,00,EA,A9,08,2C,00,2B0 
2310 DATA 03,FO,06,A4,00,CO,1B,DO,348 
2320 DATA OB, CA,10,E7,68,38,6A,AA,380 
2330 DATA BO,D8,90,AB,68,BE,OC,70,465 
2340 DATA EO,IB,DO,03,4C,61,71,EO,3CC 
2350 DATA 7F,DO,03,4C,FB,71,EO,5C,446 
2360 DATA DO,03,4C,45,72,EO,01,DO,387 
2370 DATA 03,4C,7A,72,EO,00,DO,03,2EE 
2380 DATA 4C,29,30,AO,00,A9,E9,85,35C 
2390 DATA 18,A9,CO,85,19,8A,38,E9,3CA 
2400 DATA 7F,AA,CA,FO,OC,E6,18,DO,4BD 
2410 DATA 02,E6,19,B1,18,10,F6,30,300 
2420 DATA F1,68,AA,C8,B1,18,30,2A,3EE 
2430 DATA 95,35,20,D9,CC,E8,EO,4F,4A6 
2440 DATA 90,OF,A9,5C,20,D9,CC,20,389 ► 
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2450 DATA FO, CB,A2,00,68,A8,68,28,3FD 
2460 DATA 40, EO, 4C90, DE, 8A, 48, 98, 444 
2470 DATA 48,20,9F,FA,68,A8,68,AA,423 
2480 DATA DO, DI, 29, 7F, 95, 35, 20, D9, 40C 
2490 DATA CC, E8, EO,4F,90,OE,A9,5C,486 
2500 DATA 20,D9,CC,20,FO,CB,A9,00,449 
2510 DATA 48,18,90,11,EO,4C,90,OB,2C8 
2520 DATA 8A, 48,98,48,20, 9F, FA, 68,3D3 
2530 DATA A8,68,AA,8A,48,A2,7F,AO,44D 
2540 DATA 00,88, DO, FD,CA,DO,FA,68,551 
2550 DATA AA, 68, A8,68,28,40,68,AS,39A 
2560 DATA 68,28,40,20,FO,CB,AO,01,34C 
2570 DATA B1,9A, FO,42,A2,04,BD,00,3E0 
2580 DATA 05, 95,00,CA,DO,F8,AO,00,3CC 
2590 DATA B1,01,85,05,C8,B1,01,FO,3A6 
2600 DATA 16,85,06,C8,B1,01,85,03,2A3 
2610 DATA C8,B1,01,85,04,A5,05,85,332 
2620 DATA 01,A5,06,85,02,DO,DF,A4,386 
2630 DATA 03,A5,04,20,40,DF,20,C3,2CE 
2640 DATA DD, 20, BD, DF,20,A7,DD,20,45D 
2650 DATA 22,D9,A4,33,A5,34,20,40,30B 
2660 DATA DF , A9, OA, 20, 76, EO, 20, 22, 34A 
2670 DATA D9,A5,34,C9,FA,90,16,20,43B 
2680 DATA 9F,FA,20,FO,CB,A2,7F,AO,535 
2690 DATA 00,88, DO, FD,CA,DO,FA,68,551 
2700 DATA 68, A8, 68,28, 40, A6, 33, A5,35E 
2710 DATA 34,20,C5,EO,A2,00,BD,00,358 
2720 DATA 01, FO, 05, 95, 35, E8, DO, F6, 46E 
2730 DATA EA,8A,48,A2,7F,AO,00,88,405 
2740 DATA DO,FD,CA,DO,FA,68,AA,68,5DB 
2750 DATA 68, A8,68,28,40,A9,00,85,30E 
2760 DATA 00,68,AA,AC,69,02,A9,20,2F2 
2770 DATA 91,12,88,CO,02,90,IF,A5,341 
2780 DATA 00,DO,1O,B1,12,C9,20,DO,35C 
2790 DATA 04,85,00,DO,OC,A9,20,91,2BF 
2800 DATA 12,DO,06,B1,12,C9,20,DO,364 
2810 DATA 05,CA,F0,03,D0,DC,C8,8C,4C2 
2820 DATA 69,02,84,30,8A,48,A2,7F,312 
2830 DATA AO,00,88,DO,FD,CA,DO,FA,589 
2840 DATA 68, AA, 68, A8,68,28, 40, A9,39B 
2850 DATA OA,85,00,68,AA,FO,1A,AC,357 
2860 DATA 69,02,A9,20,91,12,88,CO,31F 
2870 DATA 02,90,09,91,12,CA,FO,04,2FC 
2880 DATA C6,00,DO,F2,8C,69,02,84,403 
2890 DATA 30,8A,48,A2,7F,AO,00,88,34B 
2900 DATA DO,FD,CA,DO,FA,68,AA,68,5DB 
2910 DATA A8,68,28,40,A9,OA,85,00,2B0 
2920 DATA 68,AA,EO,4C,10,11,AC,69,374 
2930 DATA 02,B1,12,29,7F,95,35,20,257 
2940 DATA D9, CC, E8, C6,00,DO,EB,8A,598 
2950 DATA 48, A2,7F,AO,00,88,DO,FD,45E 
2960 DATA CA,DO,FA,68,AA,68,A8,68,51E 
2970 DATA 28,40,55,55,55,55,55,55,266 
3000 REM============================= 

3010 REM CSAVE CODE 

3020 REM============================= 

3030 PF-DEEK <#245):D0KE#245,#EE22 

3040 CLS;IFYY=0THEN3500 

3050 PRINT:PRINTA$+" La sauvegarde va 


s e-f+ectuer a":PRINTAÿ+" vitesse 
3060 PRINT"ra.pide et en mode AUTO": PR 
INT:PRINT;PRINTA$+" Acceptez-vous" ; 

3070 PRINT"ces PARAMETRES.": PR INT : PR I 
NTD$+"Tapez OCui) ou N (.on ) " : GETZÎ 
3080 IF Z $="N"THENGOTO100 
3090 IF Z $ < >“O"THEN Z AP:60T03000 
3100 CLS:PR INT:PR INT:PRINTA« + "DES QUE 
VOUS ETES PRET,APPUYER" 

3110 PRINTA$+" SUR UNE TOUCHE" 

:GETZ$ 

3200 PF-DEEK(#245):D0KE#245,#EE22 
3210 ZZ=YY+#2BF;CSAVE"CLAVIER-TURBO", 
AYY,EZZ,AUTO 
3220 D0KE#245,PP 

3300 F'R I NT : PR I NTD$+ " Vou 1 ez-vou.s une a 
utre copie (0/N) "+B$:GETZ$ 

3310 IF Z $="0"THEN3000ELSE100 
3500 REM 

3510 REM TROP TOT 

3520 REM 

3530 CLS:ZAP:PRINT:PRINT:PRINTA$+" IL 
FAUT D ABORD IMPLANTER LE " 

3540 PR1NTA*+" CODE MACHINE":GUS 

UB800: G0T010(;> 

4000 REM============================= 

4010 REM E X P L I C A T IONS 
4020 REM============================= 

4030 CLS:PRINT;PRINT" Les facilites 
offertent par ce programme"; 

404(j PRINT" sont obtenues en appuyant 
simultanément sur deu.>; touches" 

4050 PRINT:PRINT" "+A$+"FUNCT + a 
utre "+B$ 

4070 PRINT:PRINT" Vous pourrez NUMERO 
TER les lignes au-tomatiguement,"; 

4080 PRINT"RECOPIER et EFFACER ra 

pidement et obtenir 37 MOTS CLES " 

4090 PRINT"du basic." 

4100 PRINT;PRINT" Toutes ces facilite 

s sont ut 1 1isab1esen mode direct comme 

><. 

? 

4110 PRINT"en mode program- mat ion.": 
G0SUB850:CLS:PRINT:PRINTC$+" -1- "; 

4120 PR INT "NUMEROTAT ION AUTOMATIOUE"-*- 
B$:PRINT:PRINT" "+A$+"FUNCT + "; 

4130 PRINT"ESC"+BÏ;PRINT:PRINT" Affic 
he le numéro de ligne égal a la" 

414(Ii PR INT"d i za ine immédiatement supe 
rieure au 'plus grand numéro en 
4150 PRINT"mémoire. ": PRI NT : PR INT : PR IN 
TC$+" -2- RECOPIE "+B$ 

4160 PRINT:PRINT" "+A$+"FUNCT + 

' "+B$:PRINT:PRINT" Recopie les 10 "; 

417(j PF;INT"caracteres suivant le curs 
eu r.":60SUB830:CLS: PR INT 
4180 PRINTC$+" -3- EFFACEMENT 

"+B$:PRINT:PRINT" "+A$; 

4190 PRINT"FUNCT + \ "+B$: PR INT : PR ► 
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INT" E-f-face les 10 caractères 
4200 PRINT"precedents le curseur.";P 
RINT;PRINT:PRINT“ "+A$+"FUNCT +"; 

4210 PRINT" DEL"+B»:PRINT:PRINT" 2 C 
AS": PRINT:PRINT" 1—Curseur pointe sur 
un 

4220 PRINT"espace :":PRINT" Ef-face 
ment de tous les espaces" 

4230 PRINT"precedents le curseur jusq 
U'a trouver un caractère ."rPRINT 
4240 PRINT" 2-Curseur pointe sur un 
caractère PRINT" E-f-facement de 
4250 PRINT"tous les caractères jus 
qu'a rencontrer un espace,puis" 

4260 PRINT"e-f-facement des espaces. ":G 
GSUB850:CLS:PRINT:PRINTC*-i-" -4- MOTS " 
ï 

4270 PRINT"CLES DU BASIC "-^B*:PR 

INT:PRINT" "+A*+"FUNCT + autre"; ‘ 
4280 PRINTB$:PRINT:E*=" 

4290 PRINT" A AND "-«-E*-h"M MID$" 

: PR INT" C CALL "-«-Eÿ-H"! MUSIC" 

4300 PRINT" 4 CHR^ "■4-E*+"N NEXT" 

: PRINT" ü CIRCLE "-hE^-»^"P PEEK" 

4310 PRINT" C CURMOV "-*-E$+"6 PING" 

: PRINT" ] CURSET "-fE*-^"2 PLAY" 

4320 PRINT" D DEEK ••+E*+"Z POKE" 

:PRINT" X DOKE "-^E*+"R REPEAT" 
4340 PRINT" = DRAW "+E$+"> RIGHT 

PRINT" E ELSE "-^E*-^"7 SHOOT" 
4350 PRINT" 5 EXPLODE "-kE*-h"3 SOUND 

": PRINT" F FOR ‘'+Ei+''S STR*" 

4360 PRINT" B GOSUB "+E*-^"T TEXT" 

: PR INT" G GOTO "-^E*-^"Q THEN" 

4370 PRINT" H HEX* “■i-E*-i-"U UNTIL 

": PRINT" I INPUT "-^E*-^"V VAL" 

4380 PRINT" K KEY* "+E*+"W WAIT" 

: PRINT" < LEFT* "-^E*+"8 ZAP" 

4390 PRINT" L LORES":G0SUB850: GOTOlO 
O 

5000 REM============================= 

5010 REM CONSEILS 

5020 REM============================= 

5050 CLS:PRINT"Les MOTS CLES sont de-f 
mis 

5060 PRINT"par les DATAS, de la LIG 
NE 2130 a la LIGNE 2200" 

5070 PRINT" inc luse. ": F‘RINT"Les touche 
s correspondantes du clavier sont "; 
5080 PRINT"dans le MEME ORDRE:": PRINT 


:PRINT"LIGNE; 

TOUCHE" 

:PRINT 

5090 

PR1NT"2130: 

! W! C 

!CUR 

dr 1 

' ! C 

! D !3" 




5100 

PRINT"214Ô! 

:s: D 

ICUR 

ba ! 

\ 1 2 

! Q !X" 




51 10 

PR I NT" 2 1501RETURN1 A ! DEL 

ICUR 

93 1 

! Z 

!ESC! 1" 




5120 

PRINT"2160Î3HT dr 

! IFNCTISHT 

93 ! 


{CTRL ! 


5130 
-1 4 

PRINT"2170Î 
! F IV" 

/ 

lEi 

P 

ICUR ha 

5140 
; ! B 

PRINT"2180! 
î R 15" 

0 

16! 

0 

1 

5150 
9{ 6 

PRINT"2190! 
i T IN" 

L 

!H! 

I 

1 

• ^ 

5170 
Kî M 

PRINT"2200! 

1 J 17":PRINT 

8 

! Y! 

U 

! ESPACE 

5180 

PRINT"Certaines 

touches 

ne sont 


pas utili- sees ( DATA = 00 )." 

5190 PRINT"Pour modi-fier le MOT CLE c 
orrespondanta une TOUCHE,il "; 

5200 PRINT"su-f-fit de modi-fier le DATA 
correspondant par le CODE BASIC" 

5210 PRINT"du mot de desire. ": PRINT" 
(Il faudra egalement modifier le "; 
5220 PRINT"TOTALde CONTROLE - 9eme DA 
TA de la ligne -)" 

5230 G0SUB860:CLS;PRINT 
5240 PRINT"Les codes des FONCTIONS pa 
rticulieres ne doivent pas etre 
5250 FRINT"modifies,mais ils peuvent 
etre changes de touche.":PRINT 
5260 PRINT“Les codes correspondants s 
ont :":PRINT:PRINT 
5270 PRINT" "-^A*-^"NUMEROTAT ION 
: #lB"-<-B*: PRINT" "-^A*-^"RECOPIE "; 

5280 PRINT" : #01 "-^B*: PRINT" 

"-^A*+" EFFACEMENT -10 :#5C"-^B* 

5290 PRINT" "-^A*-^"EFFACEMENT PLUS 
:#7F"+B*:G0SUB800:CLS:PRINT 
5300 PRINT"Il n'est pas necessaire de 
protéger lelangage machine "; 

5310 PRINT"par "-4-A*-^" ' HIMEM #XXXX'"-f 
B*-^" .":PRINT"Le programme se 
5320 PRINT"protege seul auto 

ma tiquemen t": PRINT: PRINT: PRINT: PRINT 
5330 PRINT"Pour retrouver ûn clavier 
normal,il suffit de taper 
5340 PRINT: PRINT" "+A*-<-" D0KE#245,#E 
E22"-«-B* 

5360 G0SUB800:CLS: GOTO100 
5400 END 

6010 REM DEMARRAGE 
6030 CLS:PRINT 

6040 PRINT"Pour démarrer le programme 
en langage machine,si il n'est "; 

6050 F'RINT"pas enregistre en AUTlj,il 
faut taper:";PRINT 
6060 PRINTA*-^" CALL XXXX"-^B* 

6070 PRINT:PRINT" XX représente la va 
leur 

6080 PRINT"de début":PRINT"d'implanta 
tion soit #9500 "; 

6090 PRINT"si vous ne l'avez pas mod 
ifiee.";G0SUB800:GOTO100 
7000 CLS:CLEAR: END# 
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D. VASILJEVIC 


ous voici au terme d'un long voyage à travers la théorie des 
fichiers. Il est temps de mettre en pratique les connaissances 
acquises. Voici un exemple de ce qu'il est possible de faire. 



Programme d'application 
Vous connaissez maintenant 
toutes les généralités sur les 
fichiers. Mais rien ne vaut un 


TOUT 


AUGMENTE ! 



LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 


116 F pour les abonnés 
146 F pour les non- 
abonnés ! 

Bon de commande page 50 


exemple et nous vous proposons 
une application particulière utilisant 
la plupart des instoictions de traite¬ 
ment des fichiers du FTDOS. Tant 
qu'à faire, ce programme devrait 
être non seulement didactique, 
mais aussi utile. C'est pour celà que 
nous avons choisi de créer un 
répertoire des articles de votre 
journal préféré : "THEOFICHE". 


Ce programme est conçu pour 
ATMOS et JASMIN, mais les utili¬ 
sateurs du MICRODISC n’auront 
aucune difficulté pour l'adapter. La 
version 3.2 du FTDOS est livrée 
avec un programme de répertoire 
"REPERTORY-FICH". Ce petit logi¬ 
ciel contient tous les exemples dQ 
base de traitement des fichiers. 
Nous vous conseillons de l'exa¬ 
miner de près, notamment en ce 
qui concerne la transformation (ou 
le "codage") d'une chaîne de 
caractères en un nombre entier et 
l'utilisation de la matrice (tableau) 
unique ainsi créée, comme index 
trié. C’est intentionnellement que 
nous avons choisi une autre mé¬ 
thode et conçu le programme de 
façon à vous donner un grand 


nombre d'exemples de différentes 
manières de traiter les fichiers. 


D'autre part, le problème posé est 
légèrement différent du fait d'une 
division supplémentaire des fi¬ 
chiers en groupes par ,numéro de 
THEORIC. Ceci ouvre une possi¬ 
bilité de limiter les recherches à un 
nombre restreint de numéros et 
ainsi augmente la vitesse. Une 
autre raison d’abandon de l'index 
unique est la place limitée dans la 
mémoire centrale. Pour une tren¬ 
taine d’articles par numéro, avec 26 
caractères par titre (clé très impor¬ 
tante) et pour une centaine de 
numéros il faudrait ; 30 x 26 x 100 
= 78000 octets. Il aurait donc fallu 
limiter la clé à 5 caractères en 
utilisant le codaqe mentionné du 
REPERTORY-FICH. Môme dans ce 
cas-là nous serions vite limités : 30 
X 17 X 100 = 51000 octets pour 
une variable réelle et 30 x 8 x 100 = 
24000 octets pour une variable 
entière ! 

En examinant le menu, on constate 
la présence des trois options princi¬ 
pales : l'inscription d'un numéro, la ^ 
recherche d'un (ou plusieurs) ^ 
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articles et le listing d'un (ou plu¬ 
sieurs) numéros. Tout à fait banal 
pour un répertoire, mais allons plus 
loin. 

En choisissant l'option d'inscription 
d'un numéro, vous constatez que 
le titre peut être donné sur 26 
caractères au maximum et le nom 
de l'auteur sur 6 seulement (com¬ 
me le nom d'un fichier peut avoir 8 
caractères pour JASMIN et 9 pour 
MICRODISC, vous pouvez augmen¬ 
ter la longueur du nom d'auteur en 
conséquence). La fiche de chaque 
article comporte aussi le numéro de 
la page où cjébute l'article. C'est la 
fiche classique : nom, prénom, 
adresse ; il ne manque que le nu¬ 
méro de téléphone. Et si la person¬ 
ne en question avait une douzaine 
de lignes non groupées sous le mê¬ 
me numéro ? C'est là que çà de¬ 
vient plus intéressant ; un article 
peut en réalité appartenir à plu¬ 
sieurs domaines, de simple initia¬ 
tion au langage BASIC jusqu'à la 
réalisation d'une carte sophisti¬ 
quée. 

Le programme vous propose une 
liste de domaines, 21 en tout. (Rien 
ne vous empêche de la modifier ou 
de la compléter). Mais comme un 
article peut appartenir à plusieurs 
domaines en même temps, vous 
pouvez indiquer autant d'apparte¬ 
nances que vous souhaitez (et 
même les 21 !). Le codage sous 
forme D = D + 2 I I (I étant le nu¬ 
méro du domaine choisi) permet de 
représenter l'ensemble des codes 
d'un article par une seule valeur.Le 
décodage permet de savoir si un 
code est contenu dans cette valeur 
et l'indice de la boucle de déco¬ 
dage est en même temps l'indice 
du tableau désignant le numéro de 
l'enregistrement de l'article, ce qui 
permet la lecture directe de la fiche. 
Ce type de codage (dit binai¬ 
re),n'est pas le même que celui em¬ 
ployé par "REPERTORY FICH" : (n 
+ 1) I (5 - I) * valeur, "n" étant la 
limite supérieure des valeurs. Ce 
dernier type de codage est forcé¬ 
ment limité à cinq caractères, 
compte-tenu de la précision de 
calcul de l'ORIC (et même d'autres 
ordinateurs). Au-delà le décodage 
donnerait des valeurs et donc des 
codes erronés. 


Pour la recherche d'un article (ou 
d'une série d'articles), le menu de 
recherche offre quatre options. La 
première correspond à la recherche 
d'un article à partir de son titre ; 
C'est la seule clé unique de notre 
fichier, sous condition de ne pas 
donner le même nom à plusieurs 
articles. Mais même si celà était, le 
programme trouvera tous les arti¬ 
cles de ce nom. De plus, contraire¬ 
ment aux programmes courants de 
traitement des fichiers, aucun joker 
n'est demandé pour une recherche 
de tous les articles ayant le même 
préfixe (ou si vous préférez, la mê¬ 
me racine). Cette recherche se fait 
automatiquement en fonction du 
nombre de lettres que vous avez 
tapé. Ainsi vous n'êtes pas obligés 
de donner tout le titre, quelques let¬ 
tres du début suffisent. En tapant 
une seule lettre, tous les titres com¬ 
mençant par celle-ci sont retrouvés. 

Mais si vous avez oublié complète¬ 
ment le titre, vous vous rappelerez 
peut-être le rwm de l'auteur et vous 
choisirez l'option n° 2. Cette clé 
n'est, bien entendu, pas unique, 
un auteur ayant probablement écrit 
plusieurs articles. Néanmoins la 
recherche est extrêmement rapide, 
car cette fois c'est une autre organi¬ 
sation qui a été choisie. Chaque au¬ 
teur possède son propre fichier qui 
porte son nom sur 6 caractères. 

Ainsi le simple ISEARCH 
"AUTEUR" suffit pour savoir si celui- 
ci existe. Ensuite la lecture séquen¬ 
tielle de ce fichier permet de retrou¬ 
ver instantanément tous les numé¬ 
ros de THEORIC et tous les numé¬ 
ros d'enregistrement des articles 
de cet auteur. Les deux numéros 
sont contenus dans une seule varia¬ 
ble dont les codage et décodage 
sont situés respectivement aux li¬ 
gnes 1460 (N3) et 2350 et 2365 (L 
et J). 

La troisième option permet la re¬ 
cherche de tous les articles appar¬ 
tenant au même domaine, il suffit 
de donner le code de celui-ci. Là 
aussi, l'organisation du fichier est 
différente. Il s'agit cette fois d'un 
tableau unique (matrice D), sauve¬ 
gardé sous cette forme : 

ISAVE "DO" + "n° THEORIC = D". 
Chaque numéro possède donc 
son index domaine. 

Le dernier type (4) de recherche 


correspond aussi à l'option 3 du 
menu principal : c'est la recherche 
du contenu d'un ou plusieurs 
numéros de THEORIC (ou même le 
listing de tous les numéros). 


Pour chaque type de recherche, 
vous pouvez limiter l'intervalle aux 
numéros souhaités. 

Les tableaux sont dimensionnés 
pour trente articles par numéro, ce 
que vous pouvez modifier à votre 
gré. Toutes les sorties sont pré¬ 
vues sur écran. Le soin vous est 
laissé de prévoir la sortie impri¬ 
mante si vous le souhaitez. Par 
ailleurs, comme le contenu d'un 
THEORIC reste invariable, il n'est 
pas prévu de réinscription d'un 
numéro. Dans le cas où vous ajoute¬ 
riez cette possibilité, n'oubliez pas 
de conserver la valeur de la variable 
N (dernier numéro répertorié) et de 
la sauvegarder à la fin du travail 
dans le fichier "THEO". 


Pour éviter les erreurs de manipu¬ 
lation, un certain nombre de garde- 
fous a été mis dans le programme, 
mais il est certain que tout n'est pas 
fait et que vous pourrez apporter 
des améliorations au fur et à me¬ 
sure que vous découvrirez d'autres 
cas d'erreurs possibles. 

La disquette sur laquelle vous écri¬ 
rez vos fichiers doit être formatée et 
ne comporter rien d'autre. Si vous 
pensez utiliser moins de 26 carac¬ 
tères pour le titre, ou moins de 
trente articles par numéro, ajustez 
l'initialisation de la chaîne A$, ainsi 
que le dimensionnement des ta¬ 
bleaux et la longueur des fichiers. 
Comme celà vous aurez un peu 
plus de place sur la disquette. Néan¬ 
moins, à un moment de l'utilisation, 
elle sera pleine. Vous scinderez 
alors votre fichier en deux parties 
(deux volumes) puis trois etc... 
Longue vie à THEORIC... 

Ainsi se termine cette série d'ar¬ 
ticles d'initiation au traitement des 
fichiers. Nous espérons que pour 
vous celà ne sera qu'un point de 
départ. Et n'oubliez pas que le plus 
grand plaisir pour un mordu d'ORIC 
est celui de découvrir lui-même 
toutes les possibilités offertes par 
le matériel en créant et perfection¬ 
nant ses programmes d'application. ^ 


43 




1-3. de de l^opération" 


variable urii'^u.e N 


1 REM * RTnOS JRSMIH t REPERTOIRE DES ARTICLES DE THEORIC t "THEOFICHE" 

2 REM t POUR ORIC 1 IL FRUT MODIFIER CERTAINS 'PRINTS' ET 'PLOTS' 

100 REM Préparation des tableaux et rfienu Principal 

PflPER4 = INK2 : CLS = DIM ETy.< 3Q>,l$C30y, D< 30 > 

FORJ=0TO30=I$(J>=" 

ET/.C J >=0 = D< J >=0 = NEXT J 

P0KE#26fl. 2 = PRINTCHRSt: 20 CHR$C 6 ? = T$=" " : R$=" " = H=0 
PR I NTTRB< 13 > ; CHR$< 4 ) ; CHR$( 27 >" F theof i che " 

PR INTTRB-:. 13 > ; CHR$': 11); CHR$c; 4 )CHR$'.: 27 ) ; " N theof i che " 

PLOT0.4.23'FORI=5T023'PLOT0.1.128 > PL0T39.1.128 = NEXTI 
PRINT = PRINT = PRINT = PRINT = PRINTTRBC17);"MENU"= PRINT 
PRINT > PRINT = PRINTTRBC 7);"1-1nscriP tion d'un numéro" 

PR I NT = PR I NT = PR INTTRB'.: 7 ) ; " 2-Recherche d ' un art i c 1 e " 

PR I NT > PR I NT = PR I NTTRBC 7 ) .= " 3-Recherche d ' un numero " 

PLOT0.24.23 

PRINT‘PRINT=PRINTTRB<7);"4-Fin de traitement" 

REM recherche Par titre ou début du titre de 1 26 caractères au choix 
PLOT0.24.23=IFN< >0THEN250 

REM ouverture ou création du fichier THEO aPres vérification de Presence 
!ERSET = !SERRCH"THEO.DRT" = IFPEEKC #439 )=1THEN240 
!EROFF =!CRERTE"THEO;S=255"'N=0 = GOTO250 
!EROFF• !0PEN"THE0=255" = !REWIND255 =!TRKE255 = REM N 
P0KE#26R.2 

PRINT = PRINT = PRINTTRBC 3);CHR$C 27);"R Donnez 
P0KE#26R.2=GETS$= REM choix de l'opération 
S=VRLC S$) = ONSGOTO1000.2000.3000.280 
F0RI = 1T03 = PRINTCHR$(: 11 ); = NEXTI ■ GOTO250 
REM fin de travail, fermeture du fichier a 
! REWIND255 = ! WP. ITE255 = REM N 
1CL0SE255 

CLS = FOR I = 1TO11 = PR I NTCHR$=' 10);= NEXT I = PRPER0 = INK2 = FR I NTCHRîC 129); 

PR INTTRB< 11).; CHRS< 4 )CHR$':; 27 ); "N Fin de tra i tement " = PR INTCHRS'C 4 ) 

PP. I NT = PR I NTCHR$': 132 ) ; " Bonne 1 ecture " 

PRINTCHR$C133);" de"=PRINT 

PL0T14.17.138=PL0T16.17.7=PL0T17.17."THE0RIC3"=PL0T27.17.133 
PL0T14.18.127=PL0T15.13.5=PL0T17.18."THEORICS"=PL0T26.1S.2:PL0T27.18.127 
FOR I = 1T05 = PR INTCHRÎ-: 10);= NEXT I = PR I NTCHRï'^ 17 ) = WR IT500 = CLS 
PRINTCHR$(20)=END 

REM inscription des articles d'un numéro de THEORIC 
CLS = PRINT =INPUT"Numéro de THEORIC"; N1 = IFNl< =NTHEN1055 
IFN1<N+2THEN1060 

CLS = PLOT0.10."Ecoutez !...C'est fondamenta1. i1 faut reP ertorier" 

PLOT11.13."TOUS LES NUMEROS !" 

PLOT0. 15. "Recommencez donc a Partir du numéro"+STR$';: N+1 ) 

PLOT0.16." .Je vous le d i s ! " = PLOT 10.23. 1 = PLOT 11.23. "TAPEZ UNE TOUCHE " 
GETfl$=GOTO1000 

PR INT "Ce numéro est de J a répertorie !"= GOTO 10-30 

PR I NT = I NPUT " Nombre d ' art ides de ce numéro " ; R = NS$=STR$'C N1 ) = N=N+1 
N$="THEO"+MINS$.2.LENC NS$)-1)+".D=1. " 

REM création du fichier a accès direct THEONo.D=l de stocka9e des fiches 
! i:;RERTEN$+STR$'' 46 )+ " . " +STR$c; fi+1 ) = ! WR I TE 1. R+1 = REM R 
REM saisie des fiches , 

FORJ=1TOR = CLS = PRINT = PRINT"THEORIC No"; N1 ;"ARTICLE No" ; J = PRINT = PRINT 
PRINT=PRINT"TITRE = "; =PL0T9.5.17=PL0T36.5.20=T$=""=C=0 
GETS$ 

IFRSCC S$ )< > 1SRNDRSCC S$ )< > 127THENT$=T$+Sai = PR I NTS$ ; = C=C+1 ^ 

I FRSC( S$ )= 127THENC=C-1 = PR I NTS$ ; = T$=LEFT$(: T$. C ) = GOTO 1100 


101 

105 

106 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
215 
220 
230 
240 
245 
250 
255 
260 
270 
275 
280 
290 
300 
310 
220 
330 
340 
350 
370 
380 
990 
1000 
1005 
1010 
1020 
1030 
1040 
1050 
1055 
1060 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1103 
1105 


IFC<26THEN1100 


► 
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1110 
1120 
1122 
1123 

1125 

1126 
1127 
1123 

1129 

1130 

1131 

1134 

1135 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1275 
1280 
1285 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1365 
1370 
13^5 
1376 
1380 
1385 
1387 
1390 

1394 

1395 

1398 

1399 

1400 
1410 
1420 
1430 
1435 
1440 
1450 

1455 

1456 
1460 
1470 
1990 
2000 
2010 
2020 
2030 


PR I HT: PR INT: FR INT" AUTEUR' ; :PL0T9.7. 17 ' PL0T17,7.20 ' A$=" " ' C=0 
GETS$ 

IFnSCCSS)<>13flNDRSCXS$X>127THENR$=fl$+S$:PRINTS$; *0=0+1 : IF0<6THEN1120 
I FRS0t S$ >= 127THEN0=0-1 : PR I NTS$ J : R$=LEFTî{i<: R$0. ) : GOTO 1120 
PR I NT : PR I NT : PR I NT " PRGE •• " : FL0T9 ,.9.17: PLOT 17.9.20' P$= " " ' 0=0 
GETS$ 

IFRS0':; S$ )< > 13flNDRS0C 3$ X > 1 27 THENP$=P$-h 3$ ' PR I MTS$' 0=0+1 ' I F0< 6THEN1126 
I FRSGc: S$ •;>= 127THEN0=0-1 ' PR I NTS$ j > F$=LEFTîX P$. 0 > ' GOTO 1126 
Fy.=VF\L<. P$ > : IFP^i< >0THENGOSUE1134 ' GOTO 1320 

PR I NT : PR INT "Je rn-’escuse. mais le No de Pa9e en LETTRES."; 

PR INT" c' est i.i.n SGRNDRLLLE ! " ' 0=8 ' GOTO 1125 
GLS: PLOT 13.0.3 :rloT 15.0."DONRINE"'D=0 
PL0T2. 1. " 1 : Rssemb 1 eu.r-Mori i teu.r " 

PL0T2.2." 2 : Basic-Initiation" 

PL0T2.3." 3 : Biblio9r aP hie" 

FL0T2.4." 4 : Gode machine-1nitiation" 

PL0T2.5." 5:Di'.yers" 

PLOT2.6." 6 : Forth-1nitiation" 

PL0T2.7." 7 : Ftdos et J asmin" 

PL0T2.8." 8:Hard-Realisations" 

PL0T2.9." 9:1mP rimantes-Routinés" 

PL0T2.10."10:Jeux" 

PL0T2.11."11 :Lan9ua9es" 

PL0T2.12."12:Logiciels~Tests" 

PL0T2.13."13:Materiel-Tests" 

PL0T2.14."14 :Ma9neto cassette" 

PL0T2.15."15:Programmes di vers " 

PL0T2.16."16 :ROM-Routinés. Pointeurs etc" 

PL0T2.17."17 :Sedoric et microdis^ue" 

PL0T2.18."18 : Son et musiq ue" 

PL0T2.19."19 : Te1ematiq ue" 

PL0T2.20."20 : Uti1itaires en Basic" 

PL0T2.21."21 ! Uti1itaires en Gode machine"'RETURN 
PL0T3.23.3 : PLOT 8.23."Donnez autant de codes que vous" 

PL0T3.24.3'PLOT S.24."desirez et 0 Pour finir!" 

FOR I = 1T025 : PRINTOHRÏT. 10 >: NEKTI 
INPUTI • IFI =0THEND': J >=0 ' GOTO 1370 
D=D+2''' I : PR I NT0HR$< 11 >' PL0T4.25. " " ' GOTO 1350 

REM transfert sur disquette de la fiche de l-'frticlf=- J du No p-n t-mirs 
INRITEl. J'REM T$.Rî5.P/. 

REM appel de la routine du tri a 1 •'inscription de 1 •'index du No en cours 
REM fermeture du fichier en cours. Le nouveau tot^ 1 des Nos re-iri = rrii- 
GOSUB1 400 :D=0:NEXTJ' ! GLOSE 1■ !REWIND255' ! WR I TE25h: REM N 
N1 $=STR$'s N1 > ' N1 $=M I N1 $. 2. LEH-r. N1 $ y-1) 

REM sauvegarde sur disque des tableaux Pointeurs et domaines du meme No 
! MSR V E " ET " +N1 $+ " =ET;-; " ' ! MSRVE " DO " +H1 $+ " =D " 

REM sauvegarde de l'index trie du No en coure 
!MSRVE"I$"+N1$+"=!$" 

GLS'PRINT-GOTO120 

REM routine du tri a l’inscription de l'index du No en ronrs 

IF J= 1THEHI J )=T$ : EJÿ'X J >=J ' GOTO 1440 

F0RL=1T0J-1 : 0$=!$-: L > ' IFG$<T$THENNEXTL 

F0RM=JT0L+1STEP- L ' I M >= IM-1 > = ET’;-: M y=ET:o;: M-1 > ' NEKTM 

i$':l>=t$:ET7.<l)=j 

REM recherce du fichier d'AUTEUR et création en.cas d'absence 
lERSET: !SEflRGHR$+".DRT" ' IFFEEK-:; #439 )=1THEN 1460 
!0RERTER$+".S=3" 

REM le Pointeur de l'article J du No en cours est code 
REM il est ajoute au fichier seTuenciel de l'auteur 
! EROFF : ! 0PENfl$+"=3" ' ! RENDS ' N3=N:t: 100000+J ' ! WR I TES ' REM N3 
RETURN 

REM recherche - menu du type de recherche 
GLS: FORI = 1T05'PRINT'NEXT1 

PRINTTRBC 10 X " MODES DE REGHERGHE " ' PRI NTTRB'r. 10 >; " " ' PRI NT 

PRINTTRBU2X "0- Retour menu" 

PRINTTRBC 12): "1- p^.r titre" 


► 
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2040 

2050 

2060 

2070 

2080 

2090 

2100 

2105 

2110 

2120 

2122 

2123 

2124 

2125 
2130 

2135 

2136 
2140 

2145 

2146 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2225 
2250 
2260 
2270 
2275 
2280 
2290 

2300 

2301 

2302 
2305 
2310 
2320 

2322 

2323 

2324 

2325 

2326 
2330 
2:f35 
2336 
2340 
2345 


2350 

2360 

2364 

2365 
2367 
2370 
2460 
2470 
2490 

2500 

2501 

2502 
2505 
2510 


PRINTTflB< 12)j ".2- Far auteur" 

PR INTTRBC 12 ) J " 3- Par dor.ia i ne " 

PRIHTTRBa2); "4- Par numéro" 

PR I HT = PR I HT > PR I HTCHR$< 27 ) ; CHR$< 80.;" Donnez l e code du mode cho i s i ? " j 
PRIHT" '■ ; CHR$( 9 CHR$'- 27 CHRSC 84 ); CHRîC S CHR$< 3 >; CHR$': 8 
GETS$ = PRIHTS$ = S=VflL(S$ > =IFS<0OR3>4THEH2000 
OHS+1 GOTO 100.2110.2310,. 2510.2710 

REM recherche D'UH'TITRE ou DES TITRES sur 1 a 26 caractères 
CLS ‘PRIHT:! HPUT " T i tre de l •' art i c 1 e " j S$ 

I HPUT " R P art i r de 4 ue 1 numéro " j H1 = I HF'UT " Jus4 u •' a 4 ue 1 numéro " j H2 
IFH1<=H RHD H>=H2 THEHGOTO2130 

PRIHT"He choyez Pas me9alomane! Vous ne Pouvez Pas lire che '^ue 

PR I HT " vous n ' avez P az-ecr i t. RI ors MadameMademo i se H e. " j 

PRIHT"Monchieur. "= PRIHT"RECOMMEHCHEEZZ!"= G0T02120 

FORK=H 1 T0H2 •• H$=STR$'r. K :• = H$= " THEO " +MI DîPC, H$ . 2 . LEHc: H$ >-1 >+ " = 1" = ! OPEHHS 

! WHERE1 : R=DEEKC #48F > = H1 $=3TR$‘: K > : H1 $=M I D$C H1 $. 2. LEHC H1 $ 1 > = ! TRKE1. R ■ REMh 

REM lecture des tableaux index et Pointeurs 

! MLORD " ET " +H1 $+ "=ET'; " 

!ML0RD"I$"+H1$+"=I$" 

REM recherche dichotomique 

L=LEH'r. S$ > : IFS$<MID$Ç I$0 ). 1. L >0R3$>MID$< 1$^ R >. 1. L )THEH2250 

I FS$=M I D$< I 1 ). 1. L >THEH J= 1 = C=2 ‘ GOSUB22S0 = J1 = J •' GOTO3010 
IFS$=MID$<IR).1.L >THEHJ=R > C=1> GOSUB2280: J1=J = G0T03110 

II = 1:12=R : J= IHTC c; R+1 X''2 ) 

IFS$=MID$( I$< J 1L >THEHGO3UB2280 : C=< S$=MID$< .J+1 >. 1. L > >+2 
I FS$=M I D$< I J >. 1. L )THEH.J 1 = J 0HCG0T03110.3010 
IFJ=I1ORJ=I2THEH2250 

0=-: S$< MI D$U J ). 1. L >+2 : J1 = J : 0HCG0T03310.3210 

REM fin de recherche Pour ce Ho. fermeture du fichier correspondant 
PR I HT : PR I HT " THEORIC Ho " K .i " F i n de recherche " : ! CLOSE 1 : HEXTK = ! CL0SE2 
PR I HT : PR'I HTTRBt; 10 > ; " FIH DE RECHERCHE " 

PRIHT : PRIHTTRB(10);"TaP ez une touche":GETS$:CLS: PRIHT : GOTO120 
REM lecture directe et afficha9e de la fiche du titre trouve 
! TRKE 1. ET:iC .J > : REM T$. R$. P^; 

PR I HT : PR I HT " THEOR IC Ho " K 
PRIHT"Titre: /";T$ 

PRIHT"Ruteur: ";R$ 

PRIHT"Pa9e " ; py. ■ RETURH 

REM recherche de TOUS les articles d’ un RUTEUR de nom COHHU 
CLS: PRIHT : IHPUT"Ruteur de l'article";S$ 

I HPUT "fl P art i r de 4 ue l numéro " ; H1:1 HPUT " Jus4 u 'a 4 ue l numéro " ; [•12 
IFH1<=H RHD H>=H2 THEHGOTO2330 

PRIHT"Dans la conjoncture actuelle il est troP tôt Pour se Prononcer"; 

PRIHT" a ce su Jet. J'attendl-ai 4ue vous ayez introduit les nouvelles"; 

PRIHT" valeurs en bourse de votre fichier!":GOTO2320 

REM recherche du fichier de l'auteur demande 

!ERSET: !SEflRCHS$+".DRT" = IFPEEK< #489 >=1THEH2340 

GOTO2460 

REM ouverture du fichier de l'auteur demande et lecture des Pointeurs 

!EROFF: !0PEHS$+"=3": !WHERE3:2=DEEK< #48F)-l: !REWIHD3 

FORK=1TOZ: !TRKE3'REM H3 

REM decodaSe des Pointeurs 

L=IHT^ H3X100000 >: IFL< H1ORL >H2THEH2460 

H$=STR$< L >:H$=MID$< H*.2.LEH(H$ )-l ) 

REM ouverture du fichier correspondant au Pointeur et lecture de la fiche 
J=H3-L:1C 100000: !0PEH"THE0"+H$+" = 1" : !TRKE1.J:REM Tï.flS.P): 

REM fermeture de ce fichier et a la fin du fichier auteur 
GOSUB2490: ! CLOSE1 :HEXTK >! CLOSES :GOTO2460 
PRIHT :PRIHTTRB':: 10 >; "FIH DE RECHERCHE" 

PRIHT : PRIHTTRB<10)>"TaP ez une touche"= GETS$:CLS: PRIHT : GOTO120 
PR IHT : PRIHT"THEORIC Ho";L 
PRIHT"Titre: ";T$ 

PRIHT"Auteur: ";R$ 

PRIHT"Pa9e ";PX:RETURH 

REM recherche de TOUS les articles appartenant a un DOMRIHE détermine 


titre trouv 


RUTEUR de nom COHHU 


4uel numéro";H2 


un DOMRIHE détermine 


GOSUB1134 > PL0T3.23.3:pLOTS.23."Domaine recherche" 
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2515 FORI = 1TO25--PRINTCHR$O0>; =HEXTI i INPUT C 

2520 IHPUT " fl P art i r de <1 u.e l nu.mero " ^ N1 * INPUT " Jus-l u ■’ a ^ u.e l nurnero " ; N2 

2522 IFH1<=N AND W>=H2 THENGOTO2530 

2523 CLS!PRINT"Je le dis en toute sincérité^ si/sl^ si^ il faut 

2524 PR INT "respecter la constitution du fichier et rie Pas chercher 

2525 PRINT"a lire ce <lui 'n-’est Pas écrit!"'GOTO2520 

2529 REM ouverture d'un fichier dans l'intervalle choisie lecture nombre 

2530 F0RK=NlT0N2'N$=STR$<K> = N$="THE0"+MID$<N3i..2>LEN<N$)-l )+" = l" : ! OPENN$ 

2535 ÎWHEREl =fl=DEEK(:#43F):Nl$=STR$00!Nl$=MID$c:Nl$,2.LENan$)-l )= ! TflKEl. fl = REMF 

2536 REM lecture du tableau des domaines du No en cours 
2540 !NLOflD"DO"+Nl$+"=D" 

2545 REM decodaSe et recherche 

2550 FORJ=1TOfl = FORI=21TO1STEP-1 

2560 IFD< J K2''ITHEN2590 

2570 IFC=ITHENGOSIJB2600 = DCJ>=DCJ)-2''I 

2590 NEXTI.. J < GOTO26:30 

2595 REM lectj^re de la fiche trouvée 

2600 ITflKEl.J-REM T$,fl$..P'; 

2610 PRINT : PRINT"THEORIC No"J K 

2620 PRINT"Titre: ";T$ 

2621 PR INT "Auteur: 

2622 PRINT"Pa9e ";PX'RETURN 
2625 REM fermeture du fichier lu 

2630 PRINT : PRINT"THEORIC No"; K;"Fin de recherche"=! CLOSE1= NEXTK 
2640 PRINT:PRINTTflBU0); "FIN DE RECHERCHE" 

2650 PRINT > PRINTTflBC10 >;"TaP ez une touche"< GETS$ = CLS = PRINT = GOTO120 
2705 REM lista9e de TOUS les articles de TOUS les Nos choisis 
2710 CLS ' PR I NT = PR I NT " T i tr e f auteur et doma i ne sont i ncorrnus " 

2720 INPUT "fl P artir d^ 4 ue l numéro "; N 1:1 NPUT " Jus4 u ' a 4 ue l numéro"; N2 

2722 IFN1<=N AND N>=N2 THENGCiTO2730 

2723 PRINT"Si les enchères continuent il faut Pass'etonner que la lutte"; 

2724 PRINT" se durcisse. Nous attendons les nouvelles ProPosi- tions Pour"; 

2725 PRINT" Prendre une decision et J:j.9er si toutes les conditions sont 

2726 PRINT" remPlies!"■GOTO2720 

2723 REM ouverture du fichier en cours et lecture du nombre de s<»s fich^S’S 
2730 F0RK=N1T0N2:N$=STR$CK>:N$="THE0"+MID$<N$..2.LEN(N$::-1 >+" = 1" i ! riPENN$ 

2735 ! WHERE1 * ft=DEEKX. #4SF > = N1 $=STR$<: K ) = N1 $=M I N1 $. 2.. LENC N1 $ >-1 > 

2740 !TflKEl,fl:REM fl 
2750 J=1 ' 

2760 PRINT : PRINT"THEORIC No"; K•M=0 

2765 REM lect:j.re de la fiche J di;. fichier en co'j.rs 

2770 FORJ=lTOfl: ITflKEl.J:REM T$.fl$.PJ: 

2780 PRINT"Titre: ";T$ 

2781 PRINT"flij.teur : ";fl$ 

2782 PR INT "Page 

2790 IFM=24THENPR INT "Relevez ce qi.i.i vo'j.s interesse et taPez ian<=' toiirhi=-" 

2800 IFM=24THENGETS$'M=0:CLS = PRINT"THEORIC No"; K = PRINT 
2305 REM fermet:j.re d'j. fichier en coi;.rs 

2810 NEXTJ : PRINT : PRINT"THEORIC No"; K;"Fin de recherche"=! CLOSE1 
2820 PR INT "Relevez ce qui vous inter esse et taPez ijn^ to"oh^»" 

2830 GETSS :NE'XTK: PRINT îPRINTTflBC 10); "FIN DE RECHERCHE" 

2340 PRINTTflB<10);"TaP ez une touche"> GETS$ = CLS: PRINT 
2850 GOTO120 
3000 GOTO2710 

3005 REM recherche montante 

3010 J=J +1 ! I FS$=M I D$< I J ), 1. L )RND J< =nTHENGOSUB2230 = G0Tri3Pi 10 
3020 J=J1 :0NCG0TÜ3110.2250 
3105 REM recherche descendante 

3110 J=J-1 •• IFS$=MID$(: I$< J ). 1. L )flNDJ>=lTHENGOSIJB2280 : GOTOSl 10 
3120 J=J1 :ONCGOTO2250.3110 

3205 REM on Pointe le mi lie'.', de l'intervalle de l'indey vers le bac. 

3210 II =..1 : J=-1 NT< -< J+11 )y 2 ) : I F.J=flTHEN2250 
3220 GnTO2190 

3305 REM on Pointe le milieu de l'intervalle de l 'indev wcrs le h.::ut 
3310 12=J : J= I NT< < J+12 )/2 ) = I F.J= 1THEN2250 
3320 GOTO2190# 
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TRACE D'HISTOGRAMMES 

EN 3D 

Troisième et dernière partie 

Claude ROUGE 


MEDAILLES JO LOS ANGELES 



OR Ea flRG a BRz ea Ien 10 


Nous vous proposons le programme d'application le plus gé¬ 
néral, puisque celul-cl vous permet : 

-de définir tous les paramètres nécessaires au programme 
de tracé ; 

- d'effectuer la saisie sur écran des valeurs à tracer ; 

-puis, lance le tracé par appel au sous-programme SUB- 
HISTR. 

Ainsi que les exemples de tracé suivants, obtenus à l'aide de 
ce programme. 

Bons Graphiques à Tous !!! 


10 REM-HISTQGRA- 

11 REM 

12 REM APPLICATION TRACE HISTOGR. 

13 REM (OPTION RELIEF) 

14 REM PAR APPEL A ROUTINE 

15 REM BASIC 060000) 

16 REM Version IMPR.EPSON 


17 REM - 

20 HIMEM#92FF 

30 !LOAD"HISTO.CMD" 

40 ! LOAD •• COPY-ECR . CMD " 

50 !MERGE“SUBHISTR" 

60 DIMZD(12,36),ZN*(12),ZA*(36),ZC(12 
,36),M0<12) 

100 CLS:0S=0:OQ=0;M1=0:M2=0;0M=0:0E=0 
:0G=O;DH=O:DL=O 
110 PRINTzPRINT 

120 INPUT'.‘Nbre de natures a tracer (O 
=-f in) X 

130 IFX>12THEN120 
135 IFX=OTHENCLS:END 

140 PRINTïINPUT"Nombre de Valeurs pou 
r chaque Nature";Y 
145 IFY=00RX*Y>36THEN140 
150 PRINT:INPUT"barres superposée(S)/ 
cote a cote(C)";R* 

152 IFR*="C"THEN0S=0:G0T0154 

153 IFR*="S"THEN0S=1ELSE150 

154 PRINT:INPUT"Barres Relief(0/N)"; R 

$ 

156 IFR*="0"THEN0Q=1 :G0T015a 

157 IFR«<>"N"THEN154 

158 IF0Q=0THENM1=0:M2=0:G0T0164 

159 PRINT:INPUT"Moti+ de cote";M 

160 IFM>0ANDM<13THENM1=M 

161 PRINT: INPUT"Moti-f de dessus";M 

162 IFM>0ANDM<13THENM2-M 
164 FORJ=lTOX 


165 PRINT 

170 PRINT"Pour la Nature numéro ";J 
180 PRINT:INPUT"motiT:";M 
190 IFM<10RM>12THEN180 
200 MO(J)=M 

210 PRINT:INPUT"Libelle:";ZN*(J) 

220 NEXT 

230 PRINT:PRINT"Titre General:":INPUT 
ZT* 

240 PRINT:PRINT"Libelles des valeurs" 
250 F0RI=1T0Y 

260 PRINT"Lib de la ";I;" eme Valeur" 

î 

270 INPUTZA*(I):NEXT 

280 PRINT:PRINT"Voulez—vous le rappel 
des natures en bas de 1'écran?" 

290 INPUTX* 

300 IFX*="0"THEN0M=1ELSE0M=0 

305 PRINT:PRINT"Trace des Echelles(o/ 
n) : " 

306 INPUTR* 

308 IFRS<>"0"THEN0E=1:G0T0320 
310 PRINT:PRINT"Trace d'Un quadrillas 
e(o/n): " 

312 INPUTR*: IFR$="O"THENOG=1 
380 CLS 

390 PRINT:PRINT"Entree des valeurs":P 
RINT 

400 FÜRI=1TQX 

410 PRINT;PRINT"Nature:";I;"=";ZN»(I) 
420 FORJ=lTGY 

430 PRINT"Valeur:";J;" = ";ZA*(J); :INPU 
TZD(I,J) 

440 NEXT:NEXT 

500 REM —> PASSAGE AU TRACE 
520 GaSUB60000 
550 GGTDIOO# 
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PETITES ANNONCES 



LES PETITES ANNONCES ET LES MESSAGES 

Attention, vos PA seront mises sur le serveur avant la parution du journal 


La plaça réaarvée aux patitet annonças ast 
llmitéa. En conaéquanca, callas-ci passant 
dans laur ordra d'arrivéa. Par contra, las pati- 
tas annonças farfaluas sont systématlqua- 
mant rajatéas... Da méma, comma il ast pau 
probabla qu'il axista das "généraux dona- 
taurs" d^ matérials ou da logicials, las patl- 
tas annonças faisant àppal à cas philantro- 
pas na saront inséréas qua si la plaça libra 
la parmat. 

Saront rafuséas toutes las annonças visant 
à vendra ou échanger des listas ou copias da 
logicials non garantis "d'origina", ainsi qua 
toute annonce Incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Las petites annonces doivent impérativamant 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée), le texte étant rédigé é raison d'un 
caractère par casa. 

Enfin, toute annonce non accompagnée de 
timbras ne sera pas Insérée. 

Cherche corresp. ATMOS région Argenteuil. 
Vends Magnéto GRUNDID 4 Pistes + 
Bandes ; 600 F à débatttre. Mr Vanden- 
bergue-Tél. 34 15.66.34 le soir. 

Vends ATMOS + Jasmin 2 + GP50 + prg K7 
et disk + livres et revues. Le tout en TBE. 
Faire offres : T. Brier, 20 Brenu, 92230 
Gennevilliers. 

Cherche possesseur Micro Disk SEDORIC, 
région Lorentaise. Bernard Guy - 4 route de 
Kermorvan - 56600 Lanester. 

Tél. 97.81.06.99. 

Achète MCP 40 pour ATMOS. Cherche sché¬ 
ma câblage entre TCOM 745 et ATMOS pour 
trafic en CW RTTY sans interface. Tél. 
49.79.84.69. 


Vends GP500A très bon état : 1800 F. Mr 
Brouard C. Tél. 92.87.80.02 (après 18h) 
04100 Manosque. 

Instituteur utilisant ATMOS + SEDORIC, 
cherche logiciels éducatifs Schacre. 27, rue 
Bordin, 78500 Sartrouville. 

Vends ORIC ATMOS + SEDORIC + nom¬ 
breux logiciels et livres + alim + imprimante. 
Tél. 16.44.49.04.80 chez Norbert les samedi - 
dimanche. 

Vends ATMOS + cassettes + 7 livres prog + 
rallonge Péritel : 1300 F. Barbier J.-M. - 39, 
Bd J.-Vallier, 38100 Grenoble. 

Tél. 76.48.45.70. 

Achète MCP 40 en état de marche, faire 
offres. Berland - 19, Av. de La Roseraie, 
91440 Bures s/yvette. Tél. : (1) 69.07.43.45 
soir. 

Echange programmes pour ATMOS + 
SEDORIC. Ecrire à Jean-Pierre Guinet - 10, 
rue de Lorgeril - 350<X) Rennes. 

Achète sur Toulouse et environs Jasmin 2 (FTDOS 
3.2 de préférence). Amplibus, disques. E. AMETTE 
- tél. 61.86.87.66 après 18h00 ou WE. 

Cherche contaas en 5’ 1/4 Jasmin et aussi pro¬ 
gramme de transfert en 360 K par face. Urgent. 
Tél. 51.62.05.15. 

Vends Jasmin + T. DOS + gestion domestique + 
jeux + Ami fiche + livres : 1200 F. En prime, MCP40. 
Tél. 69.43.27.56 après 20h00 A/C 23.02.87. 

Vends Théorie N“ 1 à 24 : 340 F. 8 livres : 260 F ou 
500 F le tout. Lecteur K7 Philips : 250 F. LEBOUC - 


7, aie Colbert- 49000 Angers. Tél. 41.87.02.45. 

Cherche contacts Atmos pour activité commune 
jeunes à Strasbourg 67000 - Schwab Rostan - 12 
ans. Tél. 88.37.12.03 -70, allée Roberts AU. 

Cherche microdisc + interfaces E/S Kaf ou autres 
pour commande de modélisme. Vends 100 F ma¬ 
nette + son interface. Crayon optique seul : 160 F. 
Tél. 99.57 (ou 41) 23.47. 

Achète Atmos, magnéto prise jack + compteur- 
synthétiseur vocal (TMPI). Tél. 23.71.23.25 après 
17h00. 

Vends Oric-1 + jeux + livre + revue Théorie + adapt. 
péri. : 900 F. Tél. 60.22.30.45 demander Christophe 
(77). 

Vends Oric-1 + 16 K7 + interface Joystick + 4 ma¬ 
nuels + cordon magnéto et péritel : 800 F. Tél. 
42.03.93.71. 

Achète Oric Forth Tan : 50 F. T pour Atmos + notice 
d'utilisation. BONHOMME - 9, avenue de la 2ème 
DB - 61200 Argentan - tél. 33.36.09.84. 

Cherche prog. Atrmos disque très Jasmin 2 ou Jas¬ 
min. AM5D SP 1-4 Ach.RS232 INTE. HENRIAT-5, 
rue G. Moquet - 91390 Morsang-Orge. 

Echange jeux ATMC3S K7 ou disq. SEDO¬ 
RIC. Ruel Thierry - 3, rue Voltaire - 65000 
Tarbes. 

Henriat - 5, rue Guy Moquet - 91390 Mor- 
sang rech. Outimatic 1, Le Fer d'Amnukor 
Musirama, rech. Logiciels sur Jasmin 2 ou 
5P1/4. 

Cherche lecteur disquettes à très bas prix. 
Tél. 54.97.55.87, Mr Cavard. 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan -35170 BRUZ 
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ABONNEZ 

_ ^attention ■ \« ^ ^ l'ordre o ^ 

^ ci-lom* >o.r. obo..."»"' 

mote sur 'e pro<^^ , \e )5 du 

Pour être pr>s ®"jJ'°ous parvenir avan p^^^opn ...■■■ 



^^o^^ . 

Adresse yjlje 

Code Po*’°' ■ ■ Signature 

P°y* 1-* mois W"® *®': 


Code Po*’°’ ■ ■ Signature • • ; • . 70 F 

Pays O ^ois lo«® s®®* ...•:'• 035 F 

^ î„»VWe -|^Ç»'t”irf=S7S r 

îw«£,*^.».-“r.r- 

IXbonnem ® . --^ ^ ^ ^ 

^6 disqu®''^ ^ ^ — 



.\S 0 RAm 


IFR niSnilETTES DE THEORIC 

Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement ; les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


1 THEORIC n° 

2 THEORIC n' 

3 THEORIC n‘ 


4 et 5 
6 et 7 
8 et 9 


4 THEORIC n° 10 et 12 

5 THEORIC n° 1 3 et 1 4 

6 THEORIC n° 1 5 et 16 

7 THEORIC n° 1 7 et 1 8 

8 THEORIC n» 19 et 20 

9 THEORIC n° 21 et 22 

10 THEORIC n° 23 et 24 

HS THEORIC HORS SERIE (n° 11) 


VOLUME : T02S.’.,26 

ML)51C . BAS S 
DUMP . BAS S 
DUMF .BIN S 
RWEECTOR.BAS S 
CHANGE .BAS S 
ROUTlrjE .BIN S 
REMCOLOR.&AS S 


76 SECTORS 
7 SECTORS 
2 5ECTÜR5 
4 SECTORS 
IC SECTORS 
19 SECTORS 
r. SECTORS 


JEÜVIE .E 
GEMEl .E 
GENE2 .E 
GENEGUY .E 
DAT^^+AT . Ê 
DATA+Ol .E 
ECRI-EVO.E 
CANEMBER.E 
INT-GEN2.E 
n4T-GENl.E 
ir4T-GEN3. E 
FILSI .E 
FIL32 .1 
FILS3 .E 
SEO . £ 
SUPFhCEC.e 
POSITION.£ 
LEC’SECT.E 
LCA~Di3f-.£ 
PO'JSF'DUS. £ 
ATNPAP15.£ 


21 SECTORS 
6 SECTORS 
à SECTORS 
6 SECTÜF3 

11 EECTOFS 

1 1 SECTORS 
9 SECTGrS 
8 SECTORS 
15 SECTORS 
15 SECTORS 
19 5ECT0FS 
l4 SECTGRS 
14 SECTORS 
14 SECTORS 

2 SECTORS 

1 1 SECTORS 
5 SECTORS 

12 SECTORS 
14 SECTORS 
23 SECTORS 
98 SECTORS 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 78910 11 
Ci-joint : 116 F par disquette et mon étiquette abonné 

146 F par disquette car je ne suis pas abonné 


NOM .Prénom. 


Soit au total la somme de 
que ci-joint. 


F réglée par ché- 


Adresse . . . . 
Code Postal 


. . Ville 













CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 

_ ^ ____ 


NOS REVUES 


Dès que la revue est chez l'imprimeur, le 
somm^re apparaît sur la page concernée. 

Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis¬ 
quettes, cassettes, livres). 


LA BOITE A LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour - 24h sur 
24h - sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. | 

Les correspondances sont relevées chaque | 
jour ! 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 

Les boîtes à lettres sont ouvertes sous votre | 
pseudo aux normes télématiques. i 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces¬ 
sibles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas¬ 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et î 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 1 
d'erreur. ® 


NOS PRODUITS 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en¬ 
semble des produits disponibles est présen¬ 
té. Nous avons simplifié au maximum la pro¬ 
cédure. Lecteurs et revendeurs peuvent aus¬ 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 


36.T5, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 
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La Haie de Pan 
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